Разработка приложений в системе Delphi. Шейкер Т.Д. - 167 стр.

      edit3.text:=intToStr(min(a,b));
    { Освобождаем библиотеку }
    FreeLibrary(LibHandle);
   end;
 end.

Пример 5. Библиотека, использующая форму
    Библиотека
library MyLib;
uses
  SysUtils, Classes,
  fmGraph in 'fmGraph.pas' {Form1};
 exports
       drawchart index 1;
begin
end.

unit fmGraph;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, Series;
type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TBarSeries;
  end;
var
  Form1: TForm1;
procedure drawchart(Handle:tHandle; a,b,c,d:integer); export;

implementation
{$R *.DFM}
procedure drawchart(Handle:tHandle; a,b,c,d:integer);
begin
Application.Handle:=Handle;
Form1:=TForm1.Create(Application);
Form1.Series1.AddBar(a,'',clteecolor);
Form1.Series1.AddBar(b,'',clteecolor);
Form1.Series1.AddBar(c,'',clteecolor);
Form1.Series1.AddBar(d,'',clteecolor);
Form1.ShowModal;
Form1.Free;
end;
end.

    Приложение
program Demo;
uses
  Forms,
  fmDemo in 'fmDemo.pas' {Form1};
{$R *.RES}


                                167