[drkane]

M.A.D.M.A.N., я твой код пытался подогнать, но все аналогично не работает... вот как я хочу:

Код:

function randomall(i1:integer):integer;
var
  int: Integer;
begin
  randomize;
  begin
    int := 1 + Random(i1);
    result:= int;
  end;
end;

procedure privet(P:pchar);stdcall;

var
  s:string;
  int:integer;
begin
  s:= strpas(P);
  int:= randomall(strtoint(s));
  showmessage(inttostr(int));

end;

как мне переделать ф-цию?