مشكلة في حفظ الصور

[SMP3]

PHP كود :

function ExtractFileWithoutExt(const FileName: string): string;
 var
   FFileName :string;
begin
  FFileName:=ExtractFileName(FileName);
  Result:= Copy(FFileName,0,
  Length(FFileName)-Length(ExtractFileExt(FileName)));
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:String ;
begin
s:= edit.text+label1.caption ;
s:=ExtractFileDir(s)+ '\'+ ExtractFileWithoutExt(s);
bmp.SaveToFile(s);

end;