Hola sancarlos, no manejo SQLServer, hice esta pruebita y parece que funciona.
Código Delphi
[-]
adohistory.Close;
adohistory.Sql.Add('select * from ts.history where Convert(varchar, datestamp, 3)='+chr(39)+datetostr(datemenu.date)+chr(39));
adohistory.Open;
Saluditos