When I save a file with SaveDialog the recentfile list doesn't update

Hi, in my Notepad application I have created a Recentfile list.
And the code works like a clock. I have put the code in the Code Snippet.

I have made a MainMenu procedure called Open1Click and it look like this:

procedure TfrmTextToSpeech.Open1Click(Sender: TObject);
var
  sFileName: String;
  i: Integer;
begin
  if OpenDialog1.Execute then
  begin
    sFileName := OpenDialog1.FileName;
    reText.Lines.LoadFromFile(OpenDialog1.FileName);
    frmTextToSpeech.Caption := ExtractFileName(OpenDialog1.FileName) + ' - ' + 'Text2Speech';
    i := FRecentFiles.IndexOf( sFileName);
    if i >= 0 then
    FRecentFiles.Delete( i);
    ReloadFileList( sFileName);
  end;
end;

The code above opens a file and updates the recenfile list (the last 4 lines).

But when add the last 4 lines to the MainMenu procedure SaveFileAsText (uses a SaveDialog ofcaurse)
the recentfile list doesn't update. This is what the procedure looks like:

procedure TfrmTextToSpeech.SaveFileAsTextClick(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    Screen.Cursor := crHourGlass;
    StatusBar1.SimpleText := 'Saving...';
    reText.Lines.SaveToFile(SaveDialog1.FileName);
    frmTextToSpeech.Caption := ExtractFileName(SaveDialog1.FileName) + ' - ' + 'Text2Speech';
    StatusBar1.SimpleText := 'Ready';
    Screen.Cursor := crDefault;
   end;
end;

I can't figure out why? Can somebody help me to solve this problem?

Peter

Private
 
  fRecentFiles: TStringList;
------------------------------------------------------*)
procedure TfrmTextToSpeech.OpenRecentFile(Sender: TObject);
var
  sFileName: String;
  i: Integer;
begin
  sFileName := FRecentFiles[ TMenuItem( Sender).Tag];
  i := FRecentFiles.IndexOf( sFileName);
  FRecentFiles.Delete( i);
  ReloadFileList( sFileName);
  reText.Lines.LoadFromFile(sFileName);
  frmTextToSpeech.Caption := ExtractFileName(SFilename) + ' - ' + 'Text2Speech';
end;
(*-----------------------------------------------------------------*)
procedure TfrmTextToSpeech.ReloadFileList(sFileName: String);
begin
  FRecentFiles.Insert(0, sFileName);
  if FRecentFiles.Count > 7 then
    FRecentFiles.Delete( 7);
  ClearList;
  LoadRecentFileList;
end;
(*-----------------------------------------------------------------*)
procedure TfrmTextToSpeech.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SaveRecentFileList;
end;
(*-----------------------------------------------------------------*)
procedure TfrmTextToSpeech.FormCreate(Sender: TObject);
begin
  FRecentFiles := TStringList.Create;
  FRecentFiles.Duplicates := dupIgnore;
  if FileExists( ExtractFilePath(Application.ExeName) + 'MyRecentFileList.txt') then
  FRecentFiles.LoadFromFile( ExtractFilePath(Application.ExeName) + 'MyRecentFileList.txt');
  LoadRecentFileList;
end;
(*-----------------------------------------------------------------*)
procedure TfrmTextToSpeech.LoadRecentFileList;
var
  i: Integer;
  RecentFileItem: TMenuItem;
  LFileItem, ExMenuItem: TMenuItem;
begin
  for i := 0 to FRecentFiles.Count - 1 do
  begin
    if Trim(FRecentFiles[i])<>'' then begin
      RecentFileItem := TMenuItem.Create(self);
      File1.add(RecentFileItem);
      RecentFileItem.Caption := IntToStr(i)+'  '+ExtractFileName(FRecentFiles[i]);
      RecentFileItem.Tag := i;
      RecentFileItem.Visible := true;
      RecentFileItem.OnClick := OpenRecentFile;
      RecentFileItem.Name := 'Recent' + IntToStr( i);
    end;
  end;
  if TMenuItem(FindComponent('ExitMenuItem'))=nil then begin
    LFileItem := TMenuItem.Create(self);
    File1.Add(LFileItem);
    LFileItem.Caption := '-';
    LFileItem.Visible := True;
    LFileItem.Name:='MenuLine1';
  end;
 
  if TMenuItem(FindComponent('ExitMenuItem'))=nil then begin
    ExMenuItem := TMenuItem.Create(self);
    File1.add(ExMenuItem);
    ExMenuItem.Caption := 'Exit';
    ExMenuItem.Visible := true;
    ExMenuItem.Name:='ExitMenuItem';
    ExMenuItem.OnClick := ExitFile;
  end;
end;
(*-----------------------------------------------------------------*)
procedure TfrmTextToSpeech.ClearList;
var
  i: Integer;
  FMenuItem: TMenuItem;
begin
  for i := 0 to FRecentFiles.Count - 1 do
  begin
    FMenuItem := TMenuItem( FindComponent( 'Recent' + IntToStr( i)));
    FreeAndNil( FMenuItem);
  end;
  FMenuItem := TMenuItem( FindComponent('ExitMenuItem'));
  FreeAndNil( FMenuItem);
  FMenuItem := TMenuItem( FindComponent('RecFilesItem'));
  FreeAndNil( FMenuItem);
  FMenuItem := TMenuItem( FindComponent('MenuLine1'));
  FreeAndNil( FMenuItem);
end;
(*-----------------------------------------------------------------*)
procedure TfrmTextToSpeech.ExitFile(Sender: TObject);
begin
  Close;
end;
(*-----------------------------------------------------------------*)
procedure TfrmTextToSpeech.SaveRecentFileList;
begin
   FRecentFiles.SaveToFile( ExtractFilePath(Application.ExeName) + 'MyRecentFileList.txt');
   FreeAndNil( FRecentFiles);
end;
(*-----------------------------------------------------------------*)

Select allOpen in new window