validar dos campos (password y usuario)

[Yessy]

Gracias por responder.
No habia podido accesar a la pagina despues de ese dia desde mi computadora.
Aqui detallo el código que estoy utilizando.

procedure TPASSWORD.OKClick(Sender: TObject);

begin
if (edit1.Text= '')= true then
begin
showmessage ('Introduzca Su Nombre De Usuario');
edit1.SetFocus;
end;
if (edit2.Text= '')= true then
begin
showmessage ('Introduzca Su Password');
edit2.SetFocus;
end;
if (edit1.Text= '' )and (edit2.Text= '' )= true then
principal.ShowModal;
edit1.SetFocus;
edit1.Text:= '';
edit2.Text:= '';
edit1.SetFocus;
if (TBpassword.FindKey ([edit1.text]) = true ) then
showmessage ('Clave incorrecta');

end;


end.

El cual no me funciona.
Gracias nuevamente