2 tane edit.text ve giriş için buton ekliyoruz. Butona aşağıdaki kodları ekliyoruz.


var
sifre:string;
kuladi:string;
begin
sifre:=edit2.text;
kuladi:=edit1.Text;
if (sifre='sanalpusula') and(kuladi='demo') then
begin
form2.show;
form1.Hide;
end
else
begin
showmessage('Kullanıcı Adı yada Parola Geçersiz...');
end;
end;