Графический редактор, Вставка текста Опции

[vadim(b)]

Добрый вечер.
Исходный текст можете взять из предыдущего сообщения с тем же названием.
Вопрос вот в чем. Как вставить текст как в Peint'e в любое место компонента Image т.е чтобы щелкнуть в нужное место image и ввести текст допустим в edit. За любые ответы спасибо

[мисс_граффити]

тогда уж, чтобы выводилось на выбранном пользователем месте

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  x1, y1: integer;
  s: string;
begin
  if key = #13 then begin
    x1 := edit1.Left-Image1.Left; //вот здесь
    y1 := edit1.Top-Image1.Top; //и здесь
    s := Edit1.Text;

    Image1.Canvas.TextOut(X1,Y1,s);

    Edit1.Visible := False;
    edit1.Left := 0;
    edit1.Top := 0;
  end;
end;

пробовала сначала подобное, но намудрила с сочетанием SetFocus'a и невидимости. не разобралась, в общем