[YuliyaKar]

Пишу так:

Код:

Query3.Active:=false;
 query3.SQL.Clear;
 query3.SQl.Text:='select *FROM Stab.DB where Dispt  <= ''' + Edit6.Text + '''';
 query3.ExecSQL; 
Edit8.Text:=Query3.Fields[1].AsString;