StringGrid Запись данных

[-=Virus=-]

Посоветуйте как заполнить столбцы постепенно:
Приходит данные нужно заполнить первые 4 ячейки(пользователь,ip,пароль)
Второй раз приходят снова данные нужно уже в следущей строке заполнить ячейки,и тогдалие.
Очень буду благодарен за пример.

[ArtGrek]

var
 a: integer = 0;

begin
 if Приходит данные then inc(a);
 StringGrid1.cells[1,a]:='number';
 StringGrid1.cells[2,a]:='user';
 StringGrid1.cells[3,a]:='ip';
 StringGrid1.cells[4,a]:='pass';
end;

[-=Virus=-]

Сообщение от ArtGrek

var
 a: integer = 0;

begin
 if Приходит данные then inc(a);
 StringGrid1.cells[1,a]:='number';
 StringGrid1.cells[2,a]:='user';
 StringGrid1.cells[3,a]:='ip';
 StringGrid1.cells[4,a]:='pass';
end;

Это что бы заполнит первую строчку?
А как остальные заполнять?

[ArtGrek]

покажи где у тебя в коде Приходит данные

[-=Virus=-]

if (dwID = 1082) then 
begin
		
uSenderLogin := fReadText(bInBuffer, iReadOffset); 
uSenderIP := fReadText(bInBuffer, iReadOffset); 
uText := fReadText(bInBuffer, iReadOffset);
uPassword := fReadText(bInBuffer, iReadOffset); 

count := Option.ListBox1.Items.Count - 1;
    text := uSenderIP;
    for i := 0 to count  do
    begin
     if text = Option.Listbox1.Items.Strings[i] then
      begin
      aDataToSend := fTextToAnsiString(Option.user_bot.text)+  
      fTextToAnsiString(UsenderLogin);  
      CommFortProcess(dwPluginID, 1033, PAnsiChar(aDataToSend), Length(aDataToSend));

      Logs.StringGrid1.cells[0,a]:='Время';
      Logs.StringGrid1.cells[1,a]:=UsenderLogin;
      Logs.StringGrid1.cells[2,a]:=uSenderIP;
      logs.StringGrid1.cells[3,a]:=uPassword;
      logs.Timer1.Enabled:=False;
   end;
 end;
end;

[ArtGrek]

if (dwID = 1082) then

ет что проверяеца?

[Stilet]

-=Virus=-

Ты не понял. Тебя спросили о том где лежит этот код. В каком событии. Что отвечает за приход данных? Откуда приходят, как принимаешь и пр...

[ArtGrek]

как толко у тебя произошло соединение нового юзера, делаи
inc(a) // что б сменит номер строки
StringGrid1.cells[1,a]:='number';
StringGrid1.cells[2,a]:='user';
StringGrid1.cells[3,a]:='ip';
StringGrid1.cells[4,a]:='pass';

[-=Virus=-]

Сообщение от Stilet

Ты не понял. Тебя спросили о том где лежит этот код. В каком событии. Что отвечает за приход данных? Откуда приходят, как принимаешь и пр...

Этот кусок кода получает и записывает данные

Блок данных: текст(имя) + текст(IP-адрес) + текст(сообщение модератору) + текст(32 символьный MD5 хэш-код пароля)

if (dwID = 1082) then 
begin
		
uSenderLogin := fReadText(bInBuffer, iReadOffset); 
uSenderIP := fReadText(bInBuffer, iReadOffset); 
uText := fReadText(bInBuffer, iReadOffset);
uPassword := fReadText(bInBuffer, iReadOffset);

Это событие получение регистрационных данных

count := Option.ListBox1.Items.Count - 1;
    text := uSenderIP;
    for i := 0 to count  do
    begin
     if text = Option.Listbox1.Items.Strings[i] then
      begin
      aDataToSend := fTextToAnsiString(Option.user_bot.text)+  
      fTextToAnsiString(UsenderLogin);  
      CommFortProcess(dwPluginID, 1033, PAnsiChar(aDataToSend), Length(aDataToSend));

Этот кусок кода проверяет белый список на ip с получаемым и соответственно если он там есть то отправляет данные типа всё хорошо и пусть входит.

А дальше мне нужно отправить в stringrid login,ip,password
Теперь понятно?

[-=Virus=-]

Сообщение от ArtGrek

как толко у тебя произошло соединение нового юзера, делаи
inc(a) // что б сменит номер строки

Вот именно не могу понять почему но на эту строчку ругается.
Я пишу плагин на delphi 7