[roman]

El ListBox lo recorres con un ciclo for:

Código Delphi [-]
for I := 0 to ListBox1.Items.Count - 1 do
begin
  // aquí accedes a la línea actual con ListBox1.Items[i]
end;

Para cada línea usas la función Pos para encontrar la posición de la arroba y luego la función Copy para extraer la parte de la cadena desde el principio hasta una posición antes de la encontrada.

// Saludos