kullanıc giriş kodu hat nerde

[ONURBEY28]

merhaba arkadaşlar yazdığım programda kullanıcı girişi olayını yaptım. kodunu kodbankatan buldum ama
kullanıcı girişini geçip programın ana menüsüne gelemiyorum. kodu aşağıya yazıyorum yanlışı bulamadım.
kod;

var
Form1: TForm1;
yanlis:byte;
implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.open;
Table1.FindKey([edit1.text]); // Tabloda Kullanici Adi Aranir
table1.GotoKey; // Kayda konumlanir
if (table1KULADI.text=edit1.text) and (table1SIFRE.text=edit2.text) then // Kullanici Adi ve Sifreyi Kontrol Eder.
begin
showmessage('Kullanici Adi Ve Sifre Dogru');
end
else
begin
yanlis:=yanlis+1;
if yanlis=3 then // Yanlis Sayisini Kontrol Eder.
begin
showmessage('3. Kez Kullanici Adi Veya Parolayi Yanlis Girdiniz Program Kapatilacaktir');
form2.Close;
end;
showmessage('Yanlis');
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
yanlis:=0;
end;

end.

[orhancc]

kullanıcı bilgileri doğru satırının altına anamenu.show tarzı birşey ekleyeceksin ve aktif formunu kapatacaksın.