Código Delphi [-] Edit5.text := Copy(micadena, 1, Pos(' ', micadena)-1);
Edit5.text := Copy(micadena, 1, Pos(' ', micadena)-1);