[Nati1]

De donde sale Mapa?

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
Var
   MapaBMP: TBitmap;
   Horizontal, Vertical: Integer;
begin
     MapaBMP:= TBitmap.Create;

  // Mapea el plano cargando las imágenes.   
     Try
        For Vertical:= 0 To 5 do        
           For Horizontal:= 0 To 9 Do  
           Begin
                MapaBMP.LoadFromFile(Directorio + 'plano\'+ MapaBMP[Vertical, Horizontal]);
                Image1.Canvas.Draw(Horizontal*510, Vertical*500, MapaBMP);
           End;
     Finally
        MapaBMP.Free;
     End; 
end;