Auf ein Image schreiben

[dedeur]

so hab ich s gemacht

procedure TForm1.Image1MouseDown(Sender: TObject; Button:

Code:

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 := '';
    edText.Color := clRed;
    edText.Font.Size := 20;
    FTextMode   := false;
    btText.Down := false;

  end else begin
        Font.Size := 20;
    Image1.Picture.Bitmap.Canvas.TextOut(edText.Left - Image1.Left , edText.Top - Image1.Top,
      edText.Text,);

    edText.Visible := false;
  end;

end;

komischerweise verändert er die schrift des Buttons und nicht was ich schreibe