1:
2:
3:
4:
5:
6:
7:

procedure TForm1.DrawFigure(number: integer ; posx: integer ; posy: integer ; color: string);
begin
  figures[number] := TBitMap.Create;                                 
  figures[number].LoadFromFile(path + '\GFX\figur_' + color + '.bmp'); 
  figures[number].Transparent := true;                                 
  playfield.Canvas.Draw(posx, posy,figures[number]);                   
end;