consulta con un campo fecha tabla paradox

[estebanx]

procedure TForm1.data2Change(Sender: TObject);
var

begin
query1.close;
query1.sql.Clear;
query1.sql.Add('select * from employee where hiredate >= '#39+datetostr(data1.Date)+#39' and hiredate <='#39+datetostr(data2.date)+#39);
query1.open;
end;
este codigo no me quiere funcionar, estoy haciendo esta consulta con pasando dos parametros y me da error de datos.