[lmikle]

Как-то так:

Код:

function GetRandomTime(RangeStart, RangeEnd : TDateTime) : TDateTime;
const
  DateTimeSecond = 1/(24*60*60);
begin
  Result := RangeStart + Random(1+SecondsBetween(RangeStart, RangeEnd))*DateTimeSecond;
end;