procedure TFormMain.tmrGeneralRefreshTimer(Sender: TObject);
var
  i: Integer;
  selectedCase: Integer;
begin
  CaseListLocal(FLocalCurrPage);
end;


procedure TFormMain.CaseListLocal(page: Integer);
var
  row : Integer;
  totalRow: Integer;
  i: Integer;

  tmpStr: String;

  betweenFrom: Integer;
  betweenTo: Integer;
begin
  numberOfLocalCase;
  localCaseRecords(page);

.
.
.
.
.
.
.

procedure numberOfLocalCase;
begin
  DataModule4.ADQueryTemp.SQL.Clear;
  DataModule4.ADQueryTemp.SQL.Add('SELECT COUNT(fID) FROM tblCase');
  DataModule4.ADQueryTemp.Active:= True;
  FormMain.FLocalTotalRecords:= DataModule4.ADQueryTemp.Fields[0].AsInteger;
end;

LocalizerOnFly.InitReg;
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Light');
  Application.CreateForm(TFormMain, FormMain);
  Application.CreateForm(TFormAddCase, FormAddCase);
  Application.CreateForm(TFormImageViewer, FormImageViewer);
  Application.CreateForm(TFormLogin, FormLogin);
  Application.CreateForm(TShareWithForm, ShareWithForm);
  if FormMain.AkasExists then
    Application.CreateForm(TDataModule4, DataModule4);
  Application.Run;