Save direto

Voce foi muito generico, acho que e isto que voce quer se nao for ...

[color=blue:9ee4e64a3b]procedure CriaOuAnexaArquivoTexto(Filename, Texto: String);
Var Arquivo : TextFile;
begin
if FileExists(FileName) then
Begin
AssignFile(Arquivo,FileName);
Append(Arquivo);
Writeln(Arquivo,Texto);
Flush(Arquivo);
CloseFile(Arquivo);
end
else
Begin
AssignFile(Arquivo,FileName);
Rewrite(Arquivo);
Writeln(Arquivo,Texto);
CloseFile(Arquivo);
end;
end;[/color:9ee4e64a3b]

Bem eu acho que vc deve pegar o fileName do arquivo quando abrir daí comparar com o que será salvo.
quando o usuário clicar em salvar vc salva no filename que vc ja tem
quando o usuário clicar em salvar como vc abre um saveDialog e dá um saveTofile(novo_filename);
no Demo do Delphi tem um exemplo muito bom;

C:\Arquivos de programas\Borland\Delphi4\Demos\Richedit;

Té+ vê,
Gean. :)