var

  anaForm :TclStyleForm;

  testImg:TClProImage;

  LocalQ:TCLSqlQuery;

void SetImage;

{

  testImg =anaForm.AddNewProImage(anaForm,'testImg');

 clComponent.SetupComponent(testImg,

  '{

 "MarginBottom":50,

  "Width":50,

 "Height":50,

 "BorderColor":"#ff94c8",

 "BorderWidth":3,

 "ImgUrl":"https://i.pinimg.com/550x/2d/1b/36/2d1b36a0f02dd5f0c663a8f58207ca01.jpg",

 "ImgFit":"yes"}');

 anaForm.AddNewEvent(testImg,tbeOnClick,'ShowMessage(''Instagramsayfasına yönlendiriliyorsunuz.'');');

}

{

 Clomosy.DBSQLServerConnect('SQL Server','172.16.222.147','hacer','123456789','RepliklerDB',50000);

  anaForm =TclStyleForm.Create(Self);

  LocalQ =TClSqlQuery.Create(nil);

  try

  LocalQ.Connection =Clomosy.DBSQLServerConnection;

  LocalQ.SQL.Text ='SELECT replik AS MAIN_TEXT FROM Replikler';

  LocalQ.Open;

  LocalQ.First;

   with LocalQ do

   {

     While (NOT EOF)

     {

      ShowMessage(FieldByName('MAIN_TEXT').AsString);

       Next;

     }

   }

  except

  ShowMessage('hata');

  LocalQ.Free;

 anaForm.SetFormColor('#ffe5fa', '#e6ffe5', clGVertical);

  SetImage;

  anaForm.Run;

}

} 

"SQL'e bağlanmıyor, verileri çekemiyorum."