[Ozerich]

Код:

var
l:integer;
s:string;
begin
s:=savedialog1.filename;
l:=length(extractfileext(s));
delete(s,length(s)-l+1,l);
и потом сохраняй в s