Ayuda con lector de caracteres

[bigguntm]

Ok, les pido perdon porque ahi me comi el '=', aunque ese no era el error, el problema era que en el project estaba

Código Delphi [-]
Pos : Integer;

el error : Incompatible types : 'Integer' and 'String' ..

y el codigo quedo asi!

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

Saludos, gracias por responder y perdonen por la confusion!!