I am making a text editor and i have opendialog and savedialog working. when
ever i click on a text file in windows it loads my text editor and the text
file into the memo's lines. But when i goto to save that file it opens Save
As instead of saving the file right then and there.

What could be wrong????? here is my code.

=============== Save Button ========================
procedure TForm1.SaveClick(Sender: TObject);
begin
If SaveDialog.FileName = '' Then
SaveAs1Click(Sender)
Else
begin
Memo.Lines.SaveToFile(SaveDialog.FileName);
Memo.Modified := False;
End;
end;

=============== Open Button ======================

procedure TForm1.OpenClick(Sender: TObject);
begin
With Opendialog Do
If Execute Then
Begin
Memo.Lines.LoadFromFile(Filename);
HistoryList.Add(Filename);
Caption := 'My Text Editor  ' +
'['+ ExtractFileName(Filename) + ']';
SaveDialog.FileName := Filename;
Filename := '';
Memo.Modified := True;
Memochange(Sender);
End;
end;

============== Form Create ========================

procedure TForm1.FormCreate(Sender: TObject);
begin
OpenDialog.InitialDir := ExtractFilePath(ParamStr(1));
SaveDialog.InitialDir := OpenDialog.InitialDir;
end;

=============== Form Show ==========================

procedure TForm1.FormShow(Sender: TObject);
Var
F :Integer;
Filename: String;
Begin
if ParamCount >= 1 Then
Begin
Filename := '';
For F := 1 To ParamCount Do
Begin
Filename := Filename + ' ' + ParamStr(F);
End;
Memo.Lines.LoadFromFile(Trim(Filename));
End;
End;

=================================================

hype...@nettaxi.com