Query.Close;
Query.SQL.Clear;
Query.SQL.Add('select UserPwd from Admin where UserID=:In_uid');
Query.Parameters.ParamByName('In_uid').Value := uid.Text;
Query.Open;