procedure TForm1.btn4Click(Sender: TObject);
begin
  Edit3.Text := PluginProc(3);
  Edit4.Text := PluginProc(4);
end;