[4kusNick]

Код:

  sFileName := ChangeFileExt(SaveDialog1.FileName,'');