TImage слои само масштабировало в зависимости от количества слоёв

[radiokarazinec]

Нужно сделать чтобы так: вот есть у меня в Memo данные, мне надо чтобы при нажатии на кнопку визуализация на Image рисовались слои, на них писались цифры из Memo, а сами слои зарисовывались разной штриховкой, типа bsCross и другими. т.е один слой - одно число- одна штриховка, другой слой-другая штриховка,

[bulldog5293]

procedure TForm1.Button1Click(Sender: TObject);
var x,y,i:integer;
begin
randomize;
Image1.Canvas.Font.Color:=clred;
Image1.Canvas.Font.Size:=24;
for i:=1 to 10 do
 begin
  x:=random(Image1.Width-30)+20;
  y:=random(Image1.Height-30)+25;
  Image1.Canvas.TextOut(x,y,Edit1.Text);
 end;
end;

не думаю что под memo тяжело будет сделать