可以试试
begin
  database1.Connected := False;
  database1.Params.Clear;
  database1.Params.Add('UserName = youloginname');
  database1.Params.Add('PassWord = youpassword');
  try
    database1.Connected := True;
  except
    ShowMessage('用户名密码有误');
  end;
end;