[bigguntm]

Empezado por Casimiro Notevi

Tienes muchas formas de hacerlo, por ejemplo:
Código Delphi [-]edit1.text = copy(micadena,1,pos(' ')-1)

Lee: http://www.delphibasics.co.uk/RTL.asp?Name=Copy

Hola mi pana, gracias por responder,

Código Delphi [-]
var 
micadena : string; 
begin 
micadena := LstBOX.Items[LstBOX.Itemindex];
 Edit5.text := copy(micadena,1,pos(' ')-1);

pero me dice 'Missing operator or semicolon' Saludos