Dynamiczne tworzenie obrazka

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

Chyba nie powinno się wywalać, u mnie tak działa. Tylko jak dałeś w parencie self, to chyba raczej nie będzie widać tego na formie żadnej, ani w ogóle nigdzie.

Następne Literaki? Zamiast Self wstaw nazwę kontrolki, na której ma być tworzony obrazek (np. nazwę formy, jakiegoś panelu itp.).