[fofka]

Доброго дня.
Есть функция сохранения в текстовый файл. Все работает, сохраняет. Но если у меня уже есть текстовый документ, допустим "Документ1.txt" и я сохраняю опять как Документ1, то получаю "Документ1.txt.txt".То есть получаю двойное расширение. Как мне этого избежать?
Заранее благодарю.

procedure TForm2.Button8Click(Sender: TObject);
 begin
  if not SaveDialog1.Execute then
   Exit
   else
  Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt');
 end;