[Aristarh Dark]

Сделай так:

Код:

S:='Олег';
...
with DmUnit.DataModule2.Query1 do
 begin
  SQL.Text:='SELECT * FROM TStud WHERE Name = :Name';
  Params.ParseSQL(SQL.Text,true);
  Params.ParamByName('Name').Value:=S;
  Open;
 end;