procedure TForm1.Button2Click(Sender: TObject);
var
   fechadesde:TDateTime;
   fechahasta:TDateTime;
   diferencia:integer;
   aleatorio:integer;
begin
   fechadesde := EncodeDate(2014, 06, 04);
   fechahasta := EncodeDate(2014, 07, 10);

   diferencia:= Trunc(fechahasta-fechadesde); // la diferencia en dias
   aleatorio:= RandomRange(0,diferencia);  // uses Math

   fechadesde:=fechadesde+aleatorio;
   Edit6.Text:= formatdatetime('dd/mm/yyyy hh:mm:ss', fechadesde);
end;