Hvad er der galt

procedure TChatten.ListBox1DblClick(Sender: TObject);
var I:integer;
begin
I := listbox1.ItemIndex -1;
if serversocket4.Active = false then
begin
clientsocket4.Active := false;
serversocket4.Active := true;
with serversocket4.Socket do
connections[i].SendText('ring');
serversocket4.Active := false;
clientsocket4.Active := true;
end
else
begin
with serversocket4.Socket do
connections[i].SendText('ring');
end;
end;