Código Delphi [-]var1 := Copy(Texto, 1, Pos(' ', Texto) - 1)
var1 := Copy(Texto, 1, Pos(' ', Texto) - 1)
Código Delphi [-]var2 := Copy(Texto, Pos(' ', Texto) + 1, Length(Texto))
var2 := Copy(Texto, Pos(' ', Texto) + 1, Length(Texto))