[ecfisa]

Hola.

Código Delphi [-]
...
uses StrUtils;

function GetPieceOfItem(LB: TListBox): string;
var
  p1, p2: Integer;
begin
  Result := LB.Items[LB.ItemIndex];
  p1     := Pos(':', Result) + 1;
  p2     := PosEx('(', Result, p1);
  Result := Copy(Result, p1, p2 - p1);
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  ShowMessage(GetPieceOfItem(ListBox1));
end;

Saludos