procedure ButtonClick(Sender: TButton);
//var Qry: TFDQuery;
var Cmd: String;
var SList: TStringList;
begin
  ShowMessage(Sender.Name);
  SList := TStringlist.Create;
  try
    Cmd := 'Select * from S_Clients';
    Qry.SQL.Text := Cmd;
    Qry.Open;
    Qry.First;
    ShowMessage(Qry.FieldByName('CltName').AsString);
 
      Cmd := 'Select * from R_Reports';
      CmdEx.SQL.Text := Cmd;
      CmdEx.Open;
    while not Qry.Eof do
    begin
      SList.Add(Qry.FieldByName('CltName').AsString);
      Cmd := 'Insert into R_Reports(Name) Values(QuotedString(Qry.FieldByName("CltName").AsString));';
      CmdEx.SQL.Text := Cmd;
      CmdEx.ExecSQL(Cmd);
      //CmdEx.Insert;
      //CmdEx['Name'] := Qry.FieldByName('CltName').AsString;
      //CmdEx.Post;
      Qry.Next;
    end;
    Qry.Last;
    CmdEx.Close;
    ShowMessage(Qry.FieldByName('CltName').AsString);
    SList.SaveToFile('D:\0001.txt');
    Qry.Close;
  finally
    SList.Free;
  end;
 
  f.ModalResult := mrOk;
end;

      fsScript1.AddClass(TFDDataSet,'TDataSet');
      fsScript1.AddClass(TFDAdaptedDataSet,'TFDDataSet');
      fsScript1.AddClass(TFDRdbmsDataSet,'TFDAdaptedDataSet');
      fsScript1.AddClass(TFDCustomQuery,'TFDRdbmsDataSet');
      fsScript1.AddClass(TFDQuery,'TFDCustomQuery');
      fsScript1.AddObject('Qry',Qry);
      fsScript1.AddObject('CmdEx',CmdEx);