var

  beklemeForm : TclForm;

  centerLayout : TclLayout;

  lblBekle : TclProLabel;

  TimerKontrol : TclTimer;

// ----------------------------------------------------

// SQL kontrolü — sıra KIRMIZI'da mı?

// ----------------------------------------------------

void KontrolKirmizi;

{

  Clomosy.DBSQLServerQuery.Sql.Text :=

    'SELECT TurnPlayer FROM GameState WHERE ID = 1';

  Clomosy.DBSQLServerQuery.OpenOrExecute;

  if Clomosy.DBSQLServerQuery.FieldByName('TurnPlayer').AsString = 'Kirmizi' then

  begin

     Clomosy.RunUnit('kirmizisoru');

  end;

}

// ----------------------------------------------------

// FORM OLUŞTURMA

// ----------------------------------------------------

{

  beklemeForm = TclForm.Create(Self);

  beklemeForm.LytTopBar.Visible = False;

  beklemeForm.SetFormColor('#FF0000', '', clGNone);

  centerLayout = beklemeForm.AddNewLayout(beklemeForm, 'centerLayout');

  centerLayout.Align = alCenter;

  centerLayout.Width = 500;

  centerLayout.Height = 200;

  lblBekle = beklemeForm.AddNewProLabel(centerLayout, 'lblBekle', 'Mavi oyuncunun cevabı bekleniyor...');

  lblBekle.Align = alClient;

  lblBekle.clProSettings.FontColor = clAlphaColor.clWhite;

  lblBekle.clProSettings.FontSize = 28;

  lblBekle.clProSettings.FontVertAlign = palCenter;

  lblBekle.clProSettings.FontHorzAlign = palCenter;

  lblBekle.clProSettings.TextSettings.Font.Style = [fsBold];

  lblBekle.SetclProSettings(lblBekle.clProSettings);

  // TIMER — SQL kontrolü

  TimerKontrol = beklemeForm.AddNewTimer('TimerKontrol');

  TimerKontrol.Interval = 1000; // 1 saniye

  beklemeForm.AddNewEvent(TimerKontrol, tbeOnTimer, 'KontrolKirmizi');

  beklemeForm.Run;

}