[lmikle]

сделай свою процедуру функцией и возвращай результат из нее. Ну а в вызывающем коде просто пишешь присваивание.

Код:

function mas : string;stdcall; export;
var pin :array [1..15] of integer;
i : integer;
st: string;
begin
 randomize ;
   st:='';
  for i:= 1 to 15 do
  pin[i]:= random(10);
  for i:= 1 to 15 do
  st:= st + inttostr(pin[i]);
   
  result := st;
 end;
 exports mas;

ЗЫ. Если хочется передавать именно String, то, если прввильно помню, в dll и в основной проект рекомендуется включить модуль ShareMem.