Problem von Dateityp bei SaveDialog

[thomas2009]

Ich habe versucht mit dem Evenet On SaveDialog1TypeChange aber passiert nichts :

Delphi-Quellcode:

procedure TForm1.SaveDialog1TypeChange(Sender: TObject);
begin
If SaveDialog1.FilterIndex=1 then begin SaveDialog1.FileName:=SaveDialog1.FileName +'.jpeg'; end;
If SaveDialog1.FilterIndex=2 then begin SaveDialog1.FileName:=SaveDialog1.FileName +'.jpg'; end;
end;