[drkane]

народ, кто нибудь пробовал эту процедуру:

Код:

var
  int   : Integer;
  i     : Integer;
begin
  ShowMessage('Первые 5 фиксированных чисел');
  for i := 1 to 5 do
  begin
    int := 1 + Random(100);  
    ShowMessage('int = '+IntToStr(int));
  end;
  Randomize;
  ShowMessage('');
  ShowMessage('Следующие 5 случайных чисел');
  for i := 1 to 5 do
  begin
    int := 1 + Random(100);   
    ShowMessage('int = '+IntToStr(int));
  end;
end;

переделать в функцию? объектная она работает замечательно, а в виде функции ну никак! 4 дня бьюсь, так изменю, этак изменю... ни в какую...