function IsBanned:Boolean;
var
  tmpIntBan: Integer;
begin
     StartWorkWithDB();
     Form1.query.SQL.Text:='select ban from users where id = :id;';
     Form1.query.ParamByName('id').AsInteger:=MyLogin;
     BDWork();
     tmpIntBan := Form1.query.FieldByName('ban').AsInteger;
     EndWorkWithDB();
     if (tmpIntBan = 1) then Result := True
     else Result := False;
end;

function LastLoginNotToday:boolean;
var
  tmpInt: Integer;
  begin
       Form1.query.SQL.Text:='select (select date_format((current_date),''%m''))-(select date_format((select time_start from time_used where user_id = :id),''%m''))+(select date_format((current_date),''%d''))-(select date_format((select time_start from time_used where user_id = :id),''%d'')) as yn;';
       Form1.query.ParamByName('id').AsInteger:=MyLogin;
       BDWork();
       tmpInt:= Form1.query.FieldByName('yn').AsInteger;
       EndWorkWithDB();
       if (tmpInt > 0 ) then Result := True
       else
       Result := False;
  end;