SavePictureDialog speichert ohne Fileextension

[Loni]

Delphi-Quellcode:

procedure TForm1.SavePictureDialog1CanClose(Sender: TObject;
  var CanClose: Boolean);
begin
PictureExt:= ExtractFileExt(SavePictureDialog1.Filename);
if PictureExt = '.bmp' then
begin
ImHintergrund.Picture.Bitmap.SaveToFile(SavePictureDialog1.Filename);
end
else if PictureExt <>'.bmp' then
begin
PictureExt:='.bmp';
SavePictureDialog1.Filename:=SavePictureDialog1.Filename+PictureExt;
ImHintergrund.Picture.Bitmap.SaveToFile(SavePictureDialog1.Filename);
end;

jetzt kommen nur noch fehlermeldungen XD ("erst" 6 Monate Info in der Schule )