[Вопрос]Delphi(Image.Canvas)

Я создаю картинки на форме(программно).

代码:

y := 0;

Вот код картинки:

代码:

y:=y+1;
mImage[y] := TImage.Create(nil);
mImage[y].Parent := ScrollBox1;
mImage[y].Width := 700;
mImage[y].Picture.LoadFromFile('chat.bmp');
for i := 1 to y do mImage[i].Top := mImage[i].Top + 80;
x := x+70;
with mImage[y].Canvas do
begin
Font.Color  := clWhite;
Brush.Style := bsclear;
Font.Size   := 12;
TextOut(91, x+14, Edit1.Text);
end;

Ошибка в следующем, Канвас отрисовывается только на первой картине, на остальных не пишет.

Проблема решена, была ошибка в координатах.
У меня всё время к координате Х на канвасе прибавлялось значение. Поэтому на первой ещё норм отрисовывалось а на остальных уже хрен знает где рисовало. Всем спасибо за помощь.

Это процедура как я понимаю? Она к чему относится, точнее как её назвать и создать?

Нет, это события кнопки. Нажал - появилась картинка, а на ней текст =)