for i := 1 to 300 do
for j := 1 to 100 do
Begin
if (Form1.Image1.Canvas.Pixels [i,j] = 255) then
Begin
Form1.StringGrid1.Cells[0,RowCount-1] := IntToStr (i);
Form1.StringGrid1.Cells[1,RowCount-1] := IntToStr (j);
RowCount := RowCount + 1;
End;
End;