Ayuda con lector de caracteres

[bigguntm]

Empezado por ecfisa

Es así, es el resultado de copiar y pegar sin comprender lo que se está haciendo...

Saludos.

Hola Ecfisa

El problema no es porque no lo haya leido, todo lo contrario, he leido ese tema y varios mas, pero el detalle persiste,

Código Delphi [-]
Const   Espacio = ' ';  Var   ItemSelect,p : String;
begin
ItemSelect := LstBOX.Items[LstBOX.itemindex];
p : pos(Espacio, Itemselect);

Edit5.text := copy(ItemSelect,1,p-1);

todo esta correctamente escrito y verificado, pero el error 'Missing Operator or Semicolon' persiste, noc si algo le pasa a mi proyecto, pero me dice que no reconoce la operacion

Código Delphi [-]
p : pos(Espacio, Itemselect); o p : pos(' ', Itemselect);

Saludos