Информационный дисплей

procedure TMyThread.Execute;
var SMC:TServerMethods1Client;
s:string;
scet: double;
i: integer;
begin
frmMain.Memo1.Lines.Add('['+DateTimeToStr(now)+'] : '+'TMyThread.Execute');
while not Terminated do
begin
Synchronize(UpdateDispl);
sleep(1000);
end;
end;
 
procedure TMyThread.UpdateDispl;
var
scet: double;
i: integer;
begin
if  (Setup.SQLConnection.Connected) then begin
 
SMC:=TServerMethods1Client.Create(Setup.SQLConnection.DBXConnection);
try
  frmMain.BoxOstatok.Caption:=(SMC.ActivePost(setup.nPOST.Text));
  frmMain.PrM1.Caption := SMC.Price1('1');
  frmMain.PrM2.Caption := SMC.Price1('2');
  frmMain.PrM3.Caption := SMC.Price1('3');
 
 if SMC.ActivePost(setup.nPOST.Text)='False' then begin
  frmMain.BoxOstatok.Caption:='0.00 руб.';
  frmMain.Mode1.Caption := '0:00';
  frmMain.Mode2.Caption := '0:00';
  frmMain.Mode3.Caption := '0:00';
  for I := 1 to 3 do begin
 (TRzPanel(frmMain.FindComponent('AcFrame_'+IntToStr(i)))).Color       := clYellow;
 (TRzPanel(frmMain.FindComponent('AcFrame_'+IntToStr(i)))).BorderOuter := frmMain.RzPanel3.BorderOuter; 
 (TRzPanel(frmMain.FindComponent('AcFrame_'+IntToStr(i)))).Height      := 105;
  end;
 end else begin
  if frmMain.PanelInf.Visible=True then  begin
 TimStop:=0;
 frmMain.timer3.Enabled   := false;
 frmMain.PanelInf.Visible := false;
 frmMain.RzPanel3.Caption :='0';
 frmMain.RzLabel1.Caption :='0:00';
 
  end;
 
 if SMC.razvrat(setup.nPOST.Text)='' then begin
  frmMain.BoxOstatok.Caption := SMC.Zakaz(setup.nPOST.Text)+' руб.';
 end else begin
  frmMain.BoxOstatok.Caption := SMC.SumZ(setup.nPOST.Text)+' руб.';
  frmMain.UpdDispl(StrToInt(SMC.ActMode(setup.nPOST.Text)));
 
  frmMain.Mode1.Caption:= SMC.OstMode1(setup.nPOST.Text);
  frmMain.Mode2.Caption:= SMC.OstMode2(setup.nPOST.Text);
  frmMain.Mode3.Caption:= SMC.OstMode3(setup.nPOST.Text);
 
 
 frmMain.BoxOstatok.Caption:= '0,00 руб.';
 frmMain.Button1.Click;
 
 end else begin
 TimStop:=0;
 frmMain.timer3.Enabled:= false;
 frmMain.PanelInf.Visible:= false;
 frmMain.RzPanel3.Caption:='0';
 frmMain.RzLabel1.Caption:='0:00';
  end;
  SMC.Free;
 
  UpdDispl(0);
  end;
//*****************************************************************
 end;
 
  except
   on E : Exception do
       begin
   MyThread.Terminate;
   setup.SQLConnection.Connected:= false;
   frmMain.Memo1.Lines.Add('['+DateTimeToStr(now)+'] : frmMain - '+E.Message);
   frmMain.Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'loadDbXml.txt');
   frmMain.BoxOstatok.Caption:='Нет связи...';
   timer1.Enabled := True;
 
end;
end;
end;
 
procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
n:=n+1;
try
if setup.SQLConnection.Connected=False then begin
memo1.Lines.Add('['+DateTimeToStr(now)+'] : Ожидание - '+ n +'сек.');
SQLConnection.Open;
end else begin
  memo1.Lines.Add('['+DateTimeToStr(now)+'] : Связь с сервером установлена.'+' ожидание : '+RzPanel8.Caption+ '*2 сек.');
  frmMain.Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'loadDbXml.txt');
  Timer1.Enabled:= false;
  MyThread:=TMyThread.Create(False);
  MyThread.Priority:=tpNormal;
end;
 
except
 on E : Exception do
       begin
frmMain.Memo1.Lines.Add('['+DateTimeToStr(now)+'] : frmMain - '+E.Message);
end;
end;