[SEBAC_28]

mira yo lo hice asi es otra opcion

var

codigo: string;

pos: integer;

begin

codigo:= form1.Edit1.Text;

pos:= ansipos('/',codigo);

delete(codigo,pos,length(codigo));

form1.Edit1.Text:= codigo;

end;



a ver que te parece....
Saludos Sebastian