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" rel="nofollow - https://i.pinimg.com/550x/2d/1b/36/2d1b36a0f02dd5f0c663a8f58207ca01.jpg" ,

  "ImgFit":"yes"}');

  anaForm.AddNewEvent(testImg,tbeOnClick,'ShowMessage(''Instagram sayfası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."