[дум]

Код:

procedure TForm14.Button1Click(Sender: TObject);
var i,g,e:integer;
begin
r:='leo';
s:='12345';
w:=логин.text;
t:=пароль.Text;
if (t=r) and (w=s) then
begin
  button4.Visible:=true;
  button1.Visible:=false;
  DBGrid1.Visible:=true;
  DBNavigator1.Visible:=true;
end
else
begin for I := 1 to 300 do
        begin
    if (w=f[i])and (y[i]=t) then
    begin
   edit3.Visible:=true;
   edit4.Visible:=true;
   cчёт.Visible:=true;
   label1.Visible:=true;
   label4.Visible:=true;
   label2.Visible:=true;
   label3.Visible:=true;
   button2.Visible:=true;
   button3.Visible:=true;
   button4.Visible:=true;
   button5.Visible:=true;
   логин.Visible:=false;
   пароль.Visible:=false;
   button1.Visible:=false;
   for g := 1 to i do
   begin
   ADOTable1.First;
    ADOTable1.Next;
   if g=i then
   begin

   E:=ADOTable1.Fields[1].AsInteger;


   end;
    end;

    label1.Caption:=inttostr(E div 10000000000);
    j:=E mod 10000000000;
    label2.Caption:=inttostr(j div 100000);
    label3.Caption:=inttostr(E mod 100000);