Auf ein Image schreiben

[dedeur]

Code:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if FTextMode then begin
    edText.Left := X + Image1.Left;
    edText.Top  := Y + Image1.Top;
    edText.Visible := true;
    edText.AutoSize := true;
    edText.Text := '';
    Image1.Picture.Bitmap.Canvas.Font.Size := 24;
    //Image1.Picture.Bitmap.Canvas.Font.Color := clblue;

   // edText.Color := clGreen;
    FTextMode   := false;
//    btText.Down := false;

  end else begin

    Image1.Picture.Bitmap.Canvas.TextOut(edText.Left - Image1.Left , edText.Top - Image1.Top,
      edText.Text,);


    edText.Visible := false;
  end;

klappt alles wunder bar, ich will jetzt aber noch den Schriftart verändern den ich aus einem edit Feld ja auf das Image lade
ich mache folgendes:

Code:

procedure TForm1.Schriftart1Click(Sender: TObject);
begin
  if FontDialog1.Execute then edText.Font := FontDialog1.Font;
end;

Er ändert aber nur im Edit feld die Schriftart nicht aber wenn ich sie Überge.
hat jemand rat wie ich die veränderte Schriftart übergeben kann