[leroisss]

Здравствуйте! Как получить вывод из Dll в Edit ?

Код:

library dll;


uses
  SysUtils,
  dialogs,
  Classes;

{$R *.res}
procedure mas;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]);
  

 end;
 exports mas;
begin
end.