try
   Q.SQL.Text := SQL;
   s := '';
   for i := 0 to Q.ParamCount-1 do
   begin
     case Q.Params[i].DataType of
       ftDateTime: Q.Params[i].AsDateTime := P[i];
       else Q.Params[i].Value := P[i];
     end;
     s := s + Q.Params[i].Name + '=' + Q.Params[i].AsString + #13#10;
   end;
   Q.Open;

procedure TForm1.FillGrid(Grid: TZColorStringGrid; Req: String);
var
 i, j, QCash, zal, rating: integer;
 S, Trainer, Clients, Task, RatingStr: string;
begin
 InitGridLines;
 Qry.Close;
 Qry.SQL.Clear;
 Qry.SQL.Add(Req + ';');
 // showmessage(Qry.sql.text);  // !!
 // for j := 0 to qry.Params.Count-1 do showmessage(qry.params[i].Name + qry.params[i].value);  // !!
 try
   Qry.Open;
   // if Qry.IsEmpty then showmessage('Пусто'); // !!
   for j := 0 to Qry.RecordCount-1 do begin
     // for i := 0 to 9 do showmessage(qry.fields[i].FieldName + qry.fields[i].asstring);    // !!
     try
       S := TimeToStr(Qry.FieldByName('dtime').AsDateTime);
     except
       on E: Exception do
         ShowMessage(E.Message + #13#10 + qry.SQL.Text);
     end;
     try
       i := StrToInt(Copy(S,0,Pos(':',S)-1)) - 6;
     except
     end;
     QCash := Qry.FieldByName('cash').AsInteger;
     Zal := Qry.FieldByName('zal').AsInteger;
     Rating := Qry.FieldByName('rating').AsInteger;
     Trainer := FIO2ShortFIO( Qry.FieldByName('trainer').AsString );
     Clients := Qry.FieldByName('client').AsString;
     Task := Qry.FieldByName('task').AsString;

     if Rating = 0 then RatingStr := ''
       else RatingStr := ' (' + IntToStr(Rating) + '*)';
     // one or more tasks at one time
     if Grid.Cells[i, Zal] = '' then begin
       if QCash = 3 then
         Grid.Cells[i, Zal] :=  Trainer + '[' + Task + ']' + RatingStr
       else
         Grid.Cells[i, Zal] :=  Trainer + '[' + Task + ']' + #13#10 + Clients;
     end else begin
       if QCash = 3 then
         Grid.Cells[i, Zal] :=
           Grid.Cells[i, Zal] + #13#10#13#10 + Trainer + '[' + Task + ']' + RatingStr
       else
         Grid.Cells[i, Zal] :=
           Grid.Cells[i, Zal] + #13#10#13#10 + Trainer + '[' + Task + ']' + #13#10 + Clients;
         //Grid.CellStyle[i, Zal].WordWrap := True;
     end;
     if QCash = 3 then
       Grid.CellStyle[i, Zal].BGColor := clSetka   // сетка
     else {if Zal = 1 then}
       Grid.CellStyle[i, Zal].BGColor := clZal;    // 1 зал
     Qry.Next;
     Application.ProcessMessages;
   end;
 except
   on E: Exception do
     ShowMessage(E.Message + #13#10 + Qry.SQL.Text);
   // Qry.Close;   // finally
 end;
 Qry.Close;
 AutoSizeGrid(Grid);
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
 FillGrid(StringGrid1, 'SELECT * FROM z WHERE ddate = ' + fd2sql(datetimepicker1.DateTime));
end;

function TForm1.FD2SQL(ADateEdit : TDateTime) : string;
var Year, Month, Day : word;
s : string;
begin
 if ADateEdit = 0 then Result:='NULL'
else begin
 DecodeDate(ADateEdit, Year, Month, Day);
 s:='';
 s:=s+IntToStr(Year)+'-';
 if Month < 10 then s:=s+'0';
 s:=s+IntToStr(Month)+'-';
 if Day < 10 then s:=s+'0';
 s:=s+IntToStr(Day);
 // s:=s+' 00:00:00';
 Result:=chr($27)+s+chr($27);
end;
end;