Save/gem funktion i teksteditor lavet i Delphi

Hej.

Jeg er ved at lave en kode-editor i delphi. Det skrider fremad, men jeg har problemer med et par funktioner. Pt. driller min gem-funktion mig. Jeg har fint fået 'Save as..' til at virke. Men at få den til at gemme oven i en fil, som allerede er gem (altså 'save'), er straks svære. Jeg har prøve flg. :

  if SaveDialog.Execute then
  begin

    if DocFileName = '' then
    begin
      // Gemme som ny fil
      DocFileName:= SaveDialog.FileName;
      Memo.Lines.SaveToFile(DocFileName);
    end
    else
      // Overskriv den aktuelle fil
      Memo.Lines.SaveToFile(DocFileName);

  end;

Men ovenstående virker ikke. Jeg får en gem-dialog boks op hver gang. Jeg overvejer nu, om jeg kan bruge 2 dialog-bokse, med hver deres egenskaber ?

Håber I kan hjælpe mig lidt på vej.