Динамическое создание компонентов

unit Unit4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList;
 
type
  TForm4 = class(TForm)
    ImageList1: TImageList;
    ImageList2: TImageList;
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  Koord = record
    X: integer;
    Y: integer;
    end;
  TPlayer = record
    Name: string;
    Nomber: byte;
    Dviz: array[1..4] of boolean;
    Mp: byte;
    Hp: byte;
    Abs: koord;
    Otn: koord;
    end;
 
var
  Form4: TForm4;
  Play: array[1..2] of TImage;
 
implementation
 
uses Unit1, Unit2, Unit3;
 
{$R *.dfm}
 
//Ýòàï ïðîðèñîâêè ôîðìû
procedure TForm4.FormPaint(Sender: TObject);
  var i, j: byte; x, y: integer;
begin
  randomize;
  //ïîñòðîåíèå êàðòû
  Form4.Canvas.Brush.Color:=clRed;
  for i:=1 to 30 do
    for j:=1 to 20 do
      if Unit1.Pov[i, j] then Form4.Canvas.Rectangle((i-1)*30, (j-1)*30, i*30, j*30);
  //ïðîðèñîâêà ïåðñîíàæåé
  for i:=1 to 2 do
    begin
      repeat
        x:=random(30);
        y:=random(20);
      until Unit1.Pov[x, y];
      Play[i]:=TImage.Create(Form4);
      Play[i].Parent:=Form4;
    end;
end;
 
end.