eliminar cadena en listbox

[ZayDun]

gracias roman por tu respuesta, he logrado hacerlo correr, pero el proceso es muy lento al ser un documento de texto de varios Mb.Dejo un ejemplo del codigo que uso actualmente.

Código Delphi [-]
var
i:integer;
linea:integer;
Info:string;
begin
  for linea := 0 to Lista.Items.Count -1 do
  begin
    Info:=Lista.Items[linea];
    i := Pos('@', Info);
    Delete(Info, i, MaxInt);
    Lista.Items[linea] := Info;
  end;