Pytanie dotyczy zapisywania w RichEdit.

Ja do przypisać (dowolnego) przypisać zapisywanie, ale żeby klękając sprawdzał czy plik jest wcześniej zapisany, jeśli tak to zapisywał beż wyświetlenia okna SaveDialog a jeśli nie to wyświetlał okno SaveDialog [cisza]

type
TForm1 = class(TFrom)
...
...
private
FFileName: string;
end;

procedure TForm1.OnCreate(Sender: TObject);
begin
NewFile
end;

procedure TForm1.NewFile
begin
FFileName:=''
end;

procedure TForm1.Save;
begin
if FFileName = '' then SaveAs else RichEdit1.Lines.SaveToFile(FFileName)
end;

procedure TForm1.SaveAs;
begin
if SaveDialog1.Execute then begin
FFileName:=SaveDialog1.FileName;
Save
end;
end;

Uprzedzam: to tylko szkielet.