[НВ25]

в преведущем сообщении опечатка
вот правильный вариант
//***************
procedure TGForm.Timer1Timer(Sender: TObject);
begin
For i:=1 to SG.RowCount do
begin
GForm.SendData(SG.Cells[1,i]);
end;
end;
//**************