Filter im SaveDialog ansprechen

[Grolle]

Hallo!
Im OnCreate Ereignis einer Form definiere ich die Filter für den SaveDialog:

Delphi-Quellcode:

  SaveDialog1.Filter := 'Alle Dateien (*.*)|*.*;|Html Dateien (*.html; *.htm)|*.html; *.htm' +
     '|Php Dateien (*.php; *.php3; *.php4; *.phtml; *.inc)|*.php;*.php3;*.php4;*.phtml;*.inc' +
     '|Cascading Stylesheets (*.css)|*.css' + '|Java Dateien (*.java)|*.java' +
     usw.....................

anschließend rufe ich Datei speichern unter so auf:

Delphi-Quellcode:

procedure TForm2.Speichernals1Click(Sender: TObject);
begin
  SaveDialog1.FileName := pfad;
  if SaveDialog1.Execute then
  begin
    Pfad := SaveDialog1.FileName;
    Caption := ExtractFileName(pfad);
    Speichern1Click(Sender)
  end;
end;

Wie kann ich nun, wenn der User den Filter im SaveDialog auswählt die Datei mit der entsprechenden
Endung speichern?