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

[vadim(b)]

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

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

Если ты хочешь привязываться к Edit, то количество вводимых участков текста или надо ограничивать, или извращаться с новыми Edit'ами.
вот что у меня получилось.
гадость. работает, но так, что лучше бы не работало.
подумаю, как это сделать по-человечески.

var X1,Y1: integer;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
X1:=X;
Y1:=Y;
end;

procedure TForm1.FormCreate(Sender: TObject); //чтобы мерцания не было
begin
DoubleBuffered:=true;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Image1.Canvas.TextOut(X1,Y1,Key);
inc(X1,7);
end;