Ayuda con Edit

[nenufer]

Hola!! No se si es esto lo que buscas. Pero con esto cuando llegas al caracter nº 5 te lleva al form5. Si lo que buscas es mas, porque veo que hablas de un scaner o algo asi, buf ahi no creo que te pueda ayudar. Espero que esto te sirva de algo.

Código Delphi [-]
procedure TForm4.EditChange(Sender: TObject);
begin
  if length(Edit.Text) = 5 then
    Form5.Show;

end;