Leute, schaut Euch erst mal den Quellcode an:
RandomRange(1,49) = random(48)+1. Also gibt es nur Werte 1..48!
---
Delphi-Quellcode:
function RandomRange(const AFrom, ATo: Integer): Integer;
begin
if AFrom > ATo then
Result := Random(AFrom - ATo) + ATo
else
Result := Random(ATo - AFrom) + AFrom;
end;