[player891]

Код:

var
  Form1: TForm1;
  bp:TBitmap;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
bp:=TBitmap.Create;
bp.LoadFromFile('ball.bmp');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
StringGrid1.ColCount:=bp.Width;
StringGrid1.RowCount:=bp.Height;
for i:=1 to bp.Width do
for j:=1 to bp.Height do
StringGrid1.Cells[j-1,i-1]:=IntToStr(bp.Canvas.Pixels[i,j]);
 
end;

вот так норм?посоветовали люди добрые)