max lenght

[koma_grusha]

Ky3Heu прав надо обработать событие onChange для едита,
только можно сделать проще

procedure TForm1.Edit1Change(Sender: TObject);
begin
    if Length(Edit1.Text) = 7 then
        begin
        Button1Click(Sender);
        Edit1.Text:='';
        end;
end;

не надо тебе ничего в ни KeyPress, ни в FormShow, ни переменной никакой

[beemoto]

всем кто пытался помоч сенкс в отзыв!
koma_grusha, понравился твой беру твой те большое спасибо(немного подрезал итого

procedure TForm1.Edit1Change(Sender: TObject);
begin
    if Length(Edit1.Text) = 7 then
        Button1.Click;
end;