Ein SaveDialog statt 2 verwenden ?

[thomas2009]

Hallo

ich habe 2 Buttons
Mit einem Button speichere ich das Bild Grau (SW)
Und mit einem Button speichere ich das Bild Farbig :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if savedialog1.Execute then
    begin
      If ExtractFileExt(SaveDialog1.Filename) = '.bmp' then
          Image1.Picture.Bitmap.PixelFormat := pf1bit;
          image1.picture.savetofile(SaveDialog1.FileName); 
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if savedialog2.Execute then
    begin
      If ExtractFileExt(SaveDialog2.Filename) = '.bmp' then
          Image1.Picture.Bitmap.PixelFormat := pf32bit;
          image1.picture.savetofile(SaveDialog2.FileName);
end;
end;

Nun möchte ich nur ein Button und nur ein SaveDialog verwenden. dafür muss ich den SaveDialog1.Filter so erstellen, dass ich sowohl das Bild als SW aber auch als farbig speichern kann