var
  NoAntrian : Integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
  NoAntrian := 1;
  quickrep1.Visible := false;
  Label1.Caption := Inttostr(NoAntrian);
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
   no.Caption := inttostr(noAntrian);
   QuickRep1.PrintBackground;
   NoAntrian := NoAntrian + 1;
   Label1.Caption := Inttostr(NoAntrian);
end;

# procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); # begin # no.Caption := inttostr(noAntrian); # QuickRep1.PrintBackground; # NoAntrian := NoAntrian + 1; # Label1.Caption := Inttostr(NoAntrian); # end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key =#13then
 begin
    no.Caption := inttostr(noAntrian);  
    QuickRep1.PrintBackground;
    NoAntrian := NoAntrian + 1;
    Label1.Caption := Inttostr(NoAntrian);
 end;
end;