Paintbox mit SaveDialog speichern?

[GroZ]

Heyho ich bins mal wieder.
Ich brauche erneut eure Hilfe.
Ich hab ein MiniPaint programmiert was auch so gut wie fertig ist. Bloß möchte ich jetzt noch Speichern. Meine Frage ist nun wie speicher ich das mit dem SaveDialog?
Ich habe ein Menü eingebaut und dann öffne ich wenn ich auf Speichern drücke den SaveDialog.
Wenn ich dann den Dateinamen eingebe sehe ich die Datei nicht.

Delphi-Quellcode:

procedure TForm1.Speichern1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    begin
      SaveDialog1.Filename := ChangeFileExt(SaveDialog1.FileName + '.jpg');
      AssignFile(F, SaveDialog1.Filename);
    try
      Rewrite(f);
      Write(f);
    finally
      CloseFile;
  end;
end;