Capturar Texto de un String luego de un espacio

[ecfisa]

Hola.

Hola, tengo un arreglo de strings, que tienen dos palabras separadas por un espacio, y quiero capturar la segunda

Código Delphi [-]
var
  i: Integer;
begin
  for i:= 1 to 10 do
    ListBox1.Items.Add(Copy(VStr[i],Pos(' ', VStr[i])+1, MaxInt));
  ...
end;

Saludos.