Использование DLL в качестве Plug-in

Code:

procedure TfmMain.EventsTimer(Sender: TObject);

var

Values:array [0..1] of Word;

i:Integer;

begin

// формирование случайных значений

Values[0]:=Random($ffff);

Values[1]:=Random($ffff);

// передача данных

if Length(ModulesList)>0 then

   for i:=0 to Length(ModulesList)-1 do begin

     ModulesList[i].SetData(dkInputData,Values,SizeOf(Values));

   end;

end;