Var
DS : TOracleQuery
...
// set sql text in design-time
DS.SQL.Text := 'create table user1.table1 as select * from user1.table2 where date_s >= :date_s';
// Create 1 variable 'date_s' as string in design-time
// in run-time
DS.SetVariable('date_s', DateToStr(Date));
//or
DS.SetVariable(0, DateToStr(Date));
DS.Execute;
DS : TOracleQuery
...
// set sql text in design-time
DS.SQL.Text := 'create table user1.table1 as select * from user1.table2 where date_s >= :date_s';
// Create 1 variable 'date_s' as string in design-time
// in run-time
DS.SetVariable('date_s', DateToStr(Date));
//or
DS.SetVariable(0, DateToStr(Date));
DS.Execute;