a := 1;
b := 1;
Randomize;
case a of
1: b := Random(100)+1;
end;
ShowMessage(IntToStr(b));

でええんでないの？