Un ejemplito. Cuando den clic en OK:
Código Delphi
[-]
if
TableUsuarios.Locate('login', EditLogin.Text) and
TableUsuarios.FieldByName('password').AsString = EditPassword.Text then
begin
ShowMessage('Datos correctos, procede abrir el sistema');
end
else
begin
ShowMessage('Datos incorrectos');
end;
// Saludos