Saludos
Código Delphi
[-]
procedure TPASSWORD.OKClick(Sender: TObject);
begin
if trim(edit1.Text= '') then
begin
showmessage ('Introduzca Su Nombre De Usuario');
edit1.SetFocus;
end else
if trim(edit2.Text= '') then
begin
showmessage ('Introduzca Su Password');
edit2.SetFocus;
end else
if not TBpassword.locate('usuario;clave',VarArrayOf([edit1.text,edit2.text]),[]) then
showmessage ('Usuario o Clave incorrecta');
else
end;
Por ultimo has una busqueda en este foro, yaqeu se ha hablado mucho (o bastante) de este tema.
Suerte