Problema TFileSaveAs no guarda

[ecfisa]

Hola jonydread.

Te pongo un ejemplo muy simplificado para aclararte como es el funcionamiento:

Código Delphi [-]
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  with FileOpen1 do
  begin
    Dialog.DefaultExt := '*.TXT';
    Dialog.Filter   := 'Archivos de texto (*.txt)|*.TXT';
    if not Assigned(OnAccept) then  // (por si no lo asignaste en diseño)
      FileOpen1.OnAccept :=  FileOpen1Accept;
  end;
  with FileSaveAs1 do
  begin
    Dialog.DefaultExt := '*.TXT';
    Dialog.Filter :=  'Archivos de texto (*.txt)|*.TXT';
    if not Assigned(OnAccept) then // idem
      FileSaveAs1.OnAccept := FileSaveAs1Accept;
  end;
  Memo1.Clear;
end;

procedure TForm1.FileOpen1Accept(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);
end;

procedure TForm1.FileSaveAs1Accept(Sender: TObject);
begin
  Memo1.Lines.SaveToFile(FileSaveAs1.Dialog.FileName);
end;
...

Saludos

Edito: No estaba el mensaje de WkaymQ48 mientras acomodaba este, pero nos referimos a lo mismo.