Hi,
eine Prozedur ist hierfür nicht geeignet, mach eine Funktion draus und dann passt dein Vorgehen:
Delphi-Quellcode:
function mycolor: TColor;
begin
result :=
RGB(Random(256), Random(256), Random(256));
end;
Der Aufruf erfolgt dann so:
Color := mycolor;
oder direkt
Color := RGB(Random(256), Random(256), Random(256));