Dodavane varijable kroz ares u sql

unit FForm1;

interface

uses Forms, Controls, StdCtrls, SysUtils, Classes, Graphics, dlComponents,

  Dialogs, dlDatabase, db, cxGrid, FForm2;

type

  TForm1 =  class(TarForm)

var

  Form1: TForm1;

  strName: string;

procedure TForm1.dlcxButton4Click(Sender: TObject);

begin 

    strName := dlDataSet1.FieldByName('id').AsString;

    Ares.Variables.AsString['cId'] := strName;

    if dlcxCheckBox1.checked = True then

    begin

        ares.executestep(7); 

    end;

end;

end.