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

[radiokarazinec]

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

[Sibedir]

function TForm1.FindLayer(ALayerNum: Integer): Boolean;
var
  i: Integer;
begin
  Result := False;
  for i := 0 to Memo1.Lines.Count-1 do begin
    if StrToInt (Memo1.Lines[i]) = ALayerNum then begin
      Result := True;
      Break;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to LayerCount do begin
    if FindLayer (i) then 
      PaintLayer (i); // рисуем слой
  end;
end;

procedure TForm1.PaintLayer (ALayerNum: Byte);
begin
  Canvas.Brush.Style := TBrushStyle (ALayerNum-1);
//   Дальше ваши телодвижения. Например:
//   Canvas.Brush.Color := clBlack;
//   Canvas.Rectangle (Rect (0, 0, 100, 100));
end;