procedure TForm1.Button2Click(Sender: TObject);
var C1,Connection,OleNomen,OleFizLica: OleVariant;
    StrData,refEvalExpr  : OleVariant;
    Query, Choose  : OleVariant;
    queryRes  : OleVariant;
    Rslt : OleVariant;
    Next       : Boolean;
    Str,SQL : string;
    Count : integer;
    objsel, TabRez : Variant;
    df, dt: Double;
begin

C1 := CreateOleObject('V82.comconnector');
Connection := C1.Connect('Srvr="td-1c";Ref="Programmers";Usr="' + Trim(Edit8.Text) + '";Pwd="' + Trim(Edit9.Text) + '";');


objsel := Connection.NewObject('Запрос');

objsel.Текст := ' ВЫБРАТЬ ПЕРВЫЕ 100'+
                  ' ЗаказПокупателя.Дата,'+
                  ' ЗаказПокупателя.Номер,'+
                  ' ЗаказПокупателя.Ссылка,'+
                  ' ЗаказПокупателя.ДатаОтгрузки,'+
                  ' ЗаказПокупателя.Контрагент'+
                ' ИЗ'+
                ' Документ.ЗаказПокупателя КАК ЗаказПокупателя'+
                ' ГДЕ'+
                ' ЗаказПокупателя.Эксмо_ДатаОтгрузки >= &ДатаОтгр'+
                ' ЗаказПокупателя.СкладГруппа.Код = &Код';

    df := cxDateEdit8.Date + cxTimeEdit11.Time;

    objsel.УстановитьПараметр('ДатаОтгр', '20160601');
    objsel.УстановитьПараметр('Код','AST000046');

    Query := Connection.NewObject('Запрос');
    Query.Text := objsel.Текст;
    Rslt := Query.Execute();

    StrData := Rslt.Выбрать();

    Next := True;
    While Next do
       begin
         Next := StrToBool(StrData.Следующий());
         if Next then
           begin
             Form1.Memo1.Lines.Add(trim(StrData.Номер)+#9+trim(StrData.Дата));
             Application.ProcessMessages;
           end;
       end;

end;

// При отработке запрсоса выдаётся сообщение, что не заданы параметры. Может кто сталкивался? Был такой пользователь "paulic" на его осное я и попытался реализовать запрос к 1С.

Параметры ставятся одному объекту, а выполняется другой...

Query := Connection.NewObject('Запрос');
    Query.Text := objsel.Текст;
    Rslt := Query.Execute();

Вот это выкинь.

сделай так:

    Rslt := objsel.Execute();

Спасибо. А это разве принципиально для того, чтобы запрос принял команды на установку параметров?
    objsel.УстановитьПараметр('ДатаОтгр', '20160601');
    objsel.УстановитьПараметр('Код','AST000046');

(3) параметры принимает конкректный объект, а не "вообще запрос"

(3) Запрос = Новый Запрос;
Запрос.Текст = "Выбрать тралялял, тарялял1, траляля2
из
Регистр как регистрНичегоПримечательного
ГДЕ
Парам1 = &Парам1
И
Парам2 = &Парам2";
Запрос.УстановитьПараметр("парам1", Парам1);
Запрос.УстановитьПараметр("парам2", Парам2);

Запрос2 = Новый Запрос;
Запрос2.Текст = Запрос.Текст;
Запрос2.Выполнить(); // Тут ругается, не пойму чего?? можете помочь?

ЗаказПокупателя.СкладГруппа.Код = &Код';

Выдаётся ошибка - не указан параметр "Код"

(6) Покажи переделанный текст.

О чудо - работает.

Спасибо огромное.

objsel.Текст := ' ВЫБРАТЬ ПЕРВЫЕ 100'+
                  ' ЗаказПокупателя.Дата,'+
                  ' ЗаказПокупателя.Номер,'+
                  ' ЗаказПокупателя.Ссылка,'+
                  ' ЗаказПокупателя.ДатаОтгрузки,'+
                  ' ЗаказПокупателя.Контрагент'+
                ' ИЗ'+
                ' Документ.ЗаказПокупателя КАК ЗаказПокупателя'+
                ' ГДЕ'+
                ' ЗаказПокупателя.ДатаОтгрузки >= &ДатаОтгр'+
                ' И ЗаказПокупателя.СкладГруппа.Код = &Код';

    df := cxDateEdit8.Date + cxTimeEdit11.Time;

    objsel.УстановитьПараметр('ДатаОтгр', df);

    objsel.УстановитьПараметр('Код','AST000046');

Как параметру дата можно скормить cxDateEdit8.Date + cxTimeEdit11.Time? Подскажите

(9) Отформатируй его в виде '20160630140000'
т.е 30 июня, 14 часов ровно

Спасибо.
А синтаксис не подскажете применительно к cxDateEdit8.Date + cxTimeEdit11.Time?

(11) Кто из нас дельфист - ты или я?

(11) http://www.delphibasics.ru/FormatDateTime.php

https://www.google.com.ua/search?q=delphi+formatdatetime&oq=delphi+format&aqs=chrome.2.69i57j0l5.6663j0j7&client=ubuntu-browser&sourceid=chrome&es_sm=93&ie=UTF-8

(12) "После 1С разобраться в какой то Delphi это раз плюнуть"©

(14) Так сказала Саша (с)  ))))