Random Numbers

function RandomFunction(): Integer ;
var
    x: Integer
begin
    x := Random(12) + 1 ;
    Result := x ;
end ;

procedure Main ;
var
   i: Integer ;
begin
   Randomize() ;

   for i := 1 to 3 do
      showmessage(IntToStr(CallMyFunction())) ;
end ;

// Generate Date generates a random day
function GenerateDate(): string ;
var
   ranMonth, ranYear, ranDay: integer ;
   month, year, day: string ;
begin           
   // Get random month
   ranMonth := Random(12) + 1 ;
   
   // validate
   If ranMonth < 1 then
   begin
      ranMonth := 1 ;
   end ;
   
   If ranMonth > 12 then
   begin
      ranMonth := 12 ;
   end ;
   
   // Get random year
   ranYear := Random(15) + 1990 ;
   
   // validate
   If ranYear < 1990 then
      ranYear := 1990 ;
   If ranYear > 2005 then
      ranYear := 2005 ;
   
   if (ranMonth = 2) then
      // february
      begin
         if((ranYear Mod 4) = 0) then
            // leap year
            ranDay := Random(29) + 1 
         else 
            // not leap year
            ranDay := Random(28) + 1 ;
      end 
   else if ((ranMonth = 1) Or (ranMonth = 3) Or (ranMonth = 5) Or
            (ranMonth = 7) Or (ranMonth = 8) Or (ranMonth = 10) Or 
            (ranMonth = 12)) then
      // month with 31 days
      ranDay := Random(31) + 1
   else
      ranDay := Random(30) + 1 ;
         
   
   // format for output
   if ranMonth < 10 then
      month := '0' + IntToStr(ranMonth)
   else
      month := IntToStr(ranMonth) ;
   
   if ranDay < 10 then
      day := '0' + IntToStr(ranDay)
   else
      day := IntToStr(ranDay) ;
   
   year := IntToStr(ranYear) ;
   Result := month + day + year ;
end ;

procedure Main ;
var
   date: string ;
   i: Integer ;
begin
   Randomize ;
	 date = GenerateDate() ; // get a date to use later 
   
   for i:= 1 to 3 do 
      showmessage(r, date) ;
end ;