usamos random de la siguiente manera

variable := random;

la variable puede ser float o intenger, pero por defecto random nos devuelve un coma flotante

var
 numero:single;
begin
 numero := random;
end;

si queremos que nos devuelva un entero debemos marca-le un limite

random(100) eso nos devolverá un valor de 0 a 100 aleatoriamente

var
 numero:integer
begin
 numero := random(100);
end;

con la función RandomRange podemos especificar un rango de números aleatorios, es decir si quisiéramos obtener un numero aleatorio del 10 a 30

numero := randomRange(10,30);

Función Randomize que es la quien genera los patrones de los números aleatorios, si no la ponemos el random siempre nos devuelve la misma serie de números aleatorios y si la insertamos en un lugar del programa tendremos 100% números aleatorios

y por ultimo RandSeed que es para saber que numero aleatorio irá a continuación

numero := RandSeed;

Cuando utilizar un procedimiento y una función?

Utilizaremos procedimientos para hacer tareas repetidas, que no delvuelve control de finalización

ejemplo 1

procedure MiProcedimiento;
begin
showmessage(‘hola mundo’);
end;

para llamar el procedimiento, solo debemos escribir MiProcedimiento;

pero ojo, antes de llamar el procedimiento asegura-te que el código del procedimiento este antes de llamarlo

implementation
{$R *.dfm}

procedure MiProcedimiento;
begin
showmessage(‘hola mundo’);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MiProcedimiento(‘hola mundo’);
end;

ejemplo 2

llamar el procedimiento con un parametro

procedure MiProcedimiento(texto:string);
begin
showmessage(‘hola mundo, ‘ + texto);
end;

y la llamada seria
MiProcedimiento(‘easy code’);

El resultado nos saldría un cuadro de texto con el texto hola mundo, easy code

procedure MiProcedimiento(texto:string);

Nota: para definir dos parámetros del mismo tipo lo hacemos con el delimitador , si quisieramos poner otro parametro que no fuese integer lo deberíamos poner con ; el procedimiento anterior quedaria así procedure MiProcedimiento(texto,mensaje:string;valor:integer) ;