IF (s=#8) AND (i>0) THEN {se è il backspace...}
begin
Delete(command,i-1,1);
i:=i-2;
IF i>=0 THEN Write(Chr(8),' ',Chr(8));
end;
A che ti serve ? ? ?

Per la prova non ti posso risp adesso, perchè non posso. Ti dirò stasera.