[Sanek_ntsk]

не контачит

var s:string;
l:integer;
begin
if savepicturedialog1.Execute then begin
s:=savepicturedialog1.FileName;
l:=length(extractfileext(s));
delete(s,length(s)-l+1,l);
image1.Picture.SaveToFile(s);
end;