cells и Memo

[_ZixeL_]

Всем привет. Помогите решить проблему. Не могу понять

В общем. Программно создаю вкладки и окна РДП

...
var
  Form1: TForm1;
   rdp:Array of TMsRdpClient6;
...

procedure TForm1.Button4Click(Sender: TObject);
var
n,i: Integer;
tab: ttabsheet;
begin
 n := 13;
  SetLength(rdp, n+1);
  for i := 1 to n-1 do
with advstringgrid2 do
begin

tab:=ttabsheet.Create(PageControl1);
tab.parent:=PageControl1;
tab.visible := true;
tab.name:='tab'+inttostr(i);
tab.caption :='tab'+inttostr(i);
tab.pagecontrol := pagecontrol1;

rdp[i]:=TMsRdpClient6.Create(tab);
rdp[i].Name:='rdp'+inttostr(i);
rdp[i].Parent:=tab;
rdp[i].Left:=15;
rdp[i].Top:=15;
rdp[i].Width:=580;
rdp[i].Height:=390;
rdp[i].OnConnected:=rdpOnConnected;
rdp[i].ConnectingText:='Подключение к серверу: ' +cells[0,i];
end;
end;

Дальше беру с грида ипы и подключаюсь к РДП

procedure TForm1.Button2Click(Sender: TObject);
var
n,i: Integer;
tab: ttabsheet;
begin

for I :=0 to 13 do
begin
with Form1.advstringgrid2 do
begin
rdp[i+1].Server:=cells[0,i+1];
rdp[i+1].UserName:=cells[1,i+1];
rdp[i+1].Connect;
Sleep(100);
end;
end;
end;

Проблема в том, что не могу вывести в Мемо айпи к которому подключаемся.

Создал процедуру

procedure TForm1.rdpOnConnected(Sender: TObject);
var i:integer;
  begin
  with advstringgrid2 do
memo1.Lines.Add('Подключаемся к серверу' +cells[0,i]);
  end;

Но в мемо айпи не хочет выводится.
Что я не так делаю? Подскажите пожалуйста.
Спасибо.

[_ZixeL_]

Спасибо всем.
Решение было таким. Может кому-то понадобится.

begin
for i:=1 to SpinEdit1.Value do
begin
if sender=rdp[i] then
begin
Form1.Memo1.Lines.Add('Подключаемся к серверу: ' +Advstringgrid2.cells[0,i]);
Advstringgrid2.cells[2,i]:='+';
end;
end;