TImage: Bild mit TPrintDialog ausdrucken

[Helmi]

Hallo,

ich möchte mit einem TPrintDialog ein Bild eines TImage ausdrucken.

Da ich ja zuerst die DP-Suche mit einem Problem beschäftige, hab ich einen altenThread dazu gefunden.

Ich habe das wie folgt auf meine Bedürfnisse umgebaut:

Code:

private
  Bild_Dateiname: TFileName;

{ ... }

procedure TForm1.Menu_oeffnenClick(Sender: TObject);
begin
  //Bild öffnen
  If OpenPictureDialog.Execute then
    begin
      //ausgewählter Dateiname in Variable speichern
      Bild_Dateiname := OpenPictureDialog.FileName;

      //ausgewähltes Bild in das Image laden
      Image.Picture.LoadFromFile(Bild_Dateiname);
    end;
end;

procedure TForm1.Menu_DruckenClick(Sender: TObject);
var
  tf: TextFile;
begin
  if PrintDialog.Execute then
  begin
    AssignFile(tf, Bild_Dateiname);
    Rewrite(tf);
    WriteLn(tf, Bild_Dateiname);
  end;
  CloseFile(tf);
end;

Leider druckt der das Bild nicht.

Weiss jemand wie ich das umschreiben muss, damit der das Bild des Images druckt?