procedure StworzKafel(x,y: Integer; kolor: TColor; Litera: String);
var
image: TImage;
begin
image:= TImage.Create(Self);
image.Width:=24;
image.Height:=24;
image.Left:= x;
image.Top:= y;
image.Parent:= Self;
if kolor=RGB(247,234,173) then
image.Picture.LoadFromFile('kafelki\zolty.bmp');
if kolor=RGB(188,242,188) then
image.Picture.LoadFromFile('kafelki\zielony.bmp');
if kolor=RGB(255,224,224) then
image.Picture.LoadFromFile('kafelki\rozowy.bmp');
if kolor=RGB(197,232,249) then
image.Picture.LoadFromFile('kafelki\niebieski.bmp');
image.OnMouseMove:= Form1.Image3MouseMove;
image.Canvas.TextOut(5,5,Litera);
end;
pomocy potrzebuje bo mi sie wywala na self w create i parent.. nie mam zielonego pojecia co tam wstawic.. programuje w delphi dopiero pol roku i prosilbym o pomoc