[~TB~]

Решил проблему, если кому интересно:

Код:

procedure drawm;
var
 PIC: TBitmap;
 i,k,f,d: integer;
 c: char;
 s: string;
begin
 s:='';
 f:=4;
 PIC:=TBitmap.Create;
 PIC.Height:=20;
 PIC.Width:=30;
 PIC.Transparent:=True;
 for i:=0 to 19 do
  begin
   s:=m.Strings[i];
   for k:=1 to 4 do
    begin
     c:=s[k];
     if c='A' then
      begin
       PIC.LoadFromFile('Temp.bmp');
      end;
     if c='B' then
      begin
       PIC.LoadFromFile('Green.bmp');
      end;
     if c='C' then
      begin
       PIC.LoadFromFile('Red.bmp');
      end;
     if c='D' then
      begin
       PIC.LoadFromFile('Yellow.bmp');
      end;
     if i mod 2>0 then d:=20 else d:=0;
     fmain.MAP.Canvas.Draw(k*30-d,i*20-f,PIC);
    end;
   f:=f+4;    
  end;
 PIC.Destroy;
end;