[player891]

делаю вот так

Код:

bp:=TBitmap.Create;
bp.LoadFromFile(form1.OpenPictureDialog1.FileName);
StringGrid1.ColCount:=gor;
StringGrid1.RowCount:=vert;
for i:=1 to gor do begin
form1.ProgressBar1.Position:= i div (gor div 100);
for j:=1 to vert do
StringGrid1.Cells[j-1,i-1]:=IntToStr(bp.Canvas.Pixels[i,j]);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
for i:=1 to gor do
for j:=1 to vert do
form1.Canvas.Pixels[i,j]:=strtoint(StringGrid1.Cells[j-1,i-1] );
end;

procedure TForm1.Button3Click(Sender: TObject);
var i,j:integer;
begin
bp1:=TBitmap.Create;
for i:=1 to gor do
for j:=1 to vert do
bp1.Canvas.Pixels[i,j]:=strtoint(StringGrid1.Cells[j-1,i-1] );
bp1.SaveToFile('ball_new.bmp');
end;
	

баттон 2 работает норм,а вот баттон 3 почему то не сохраняет в файл из гридрида,пишет пустой файл.