Удалить из Listbox delphi

[Nice42ru]

нет не сразу после занесения, к серверу могут подключиться ещё несколько клиентов и заполнить ListBox своими Id

[ArtGrek]

и ты не знаеш как выяснить номер тои строки которую надо менять?
выложи код где видна последовательность деиствии
и напиши пример строки что заносица в лист бокс которую надо менять

[phomm]

если надо найти номер итема в котором конкретный текст, то перечитай мой пост ( про indexof)

[Nice42ru]

При коннекте к серверу клиент осылает ему свой Id

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Socket.SendText('id' + id);
end;

сервер в свою очередь читает этот Id и записывает его в listBox

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var
  s, str, work, m, n: string;
begin
m:= Socket.ReceiveText;

if pos('id', m) <> 0 then
  begin
     work:= m;
      Delete(work, 1, 2);
     UserList.Items.Add(work);
        end;


  if pos('del', m) <> 0 then
  begin
Delete(m, 1, 3);
With UserList do if ItemIndex<>-1 then begin
 str := Items[ItemIndex];
 delete(str, pos(m, str), pos(m, str) + length(m));
 Items[ItemIndex] := str;
end;
    end;


end;

при выходе клиент отправляет сообщение что он вышел и просит удалить его Id из ListBox сервера

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ClientSocket1.Socket.SendText('del' + id);
ClientSocket1.Active:= False;
end;

а сервер должен соответственно удалить его Id Из ListBox'a

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var
  s, str, work, m, n: string;
begin
m:= Socket.ReceiveText;

if pos('id', m) <> 0 then
  begin
     work:= m;
      Delete(work, 1, 2);
     UserList.Items.Add(work);
        end;


  if pos('del', m) <> 0 then
  begin
Delete(m, 1, 3);
With UserList do if ItemIndex<>-1 then begin
 str := Items[ItemIndex];
 delete(str, pos(m, str), pos(m, str) + length(m));
 Items[ItemIndex] := str;
end;
    end;


end;

[ArtGrek]

ну тогда phomm тебе уже ответил

n := listbox.items.indexof('slovo');

возвращает индекс строки в которои находица твои текст, вот его и подставляи

[Nice42ru]

Поступил так:

m:= socket.reciveText;
  if pos('del', m) <> 0 then
  begin
Delete(m, 1, 3);
i:= ListBox1.items.indexof(m);
UserList.Items.Delete(i);
    end;

Всем огромное спасибо за помощь!