if (Form1.Image1.Canvas.Pixels [i,j] = $00FFFFFF) then
Begin
Form1.StringGrid1.Cells[0,Form1.StringGrid1.RowCount-1] := IntToStr (i);
Form1.StringGrid1.Cells[1,Form1.StringGrid1.RowCount-1] := IntToStr (j);
Form1.StringGrid1.RowCount := Form1.StringGrid1.RowCount + 1;
End;