What am I doing wrong?
Code: Select all
procedure InitRNG();
begin
RNGEN_RCC_AHB2ENR_bit:= 1;
RCC_AHB2ENR:= 1;
RNGEN_bit:= 1;
end;
function ColorRNG( color:dWORD;):dWORD;
var
Rnd:DWORD;
begin
RNG_CR:=1;
while (RNG_SR = 1)do
begin
RNG_DR:=1;
Rnd := RNG_DR;
end;
result:= Rnd;
end;
TFT9341_WriteStringN(5,70,'Test Color',ColorRNG(TFT9341_YELLOW),TFT9341_BLUE,CourierNew15x29Bold,15,29);