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;