Dinamic Linc Library

[Ericnex]

Небольшой вопрос. Как переделать мою программу используя динамическую библиотеку а затем вновь использовать это в основной программе.

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Function Tekst(n,k:integer):integer;
var i,h:integer;
begin
if n > 0 then
begin
for i:=1 to 500 do
h := Image1.Canvas.TextHeight('H');
Image1.Canvas.TextOut(0, (k-n)*h*5,IntToStr(k-n+1));
Image1.Canvas.TextOut(0, (k-n)*h*5+h,'Как это было:');
Image1.Canvas.TextOut(0, (k-n)*h*5+2*h,'У попа была собака- он ее любил.');
Image1.Canvas.TextOut(0, (k-n)*h*5+3*h,'Она съела кусок мяса- он её убил.');
Image1.Canvas.TextOut(0, (k-n)*h*5+4*h,'Убил и закопал на могиле написал:');
Image1.Canvas.Font.Size:=Image1.Can vas.Font.Size*2;
end;
end;
var n,h,k:integer;
begin
Try
k := strtoint(Edit1.Text);
Except
exit;
end;
n:=k;
Image1.Canvas.Font.Assign(Font);
Image1.Canvas.Brush.Color := Color;
Image1.Canvas.Brush.Style := bsSolid;
h := Image1.Canvas.TextHeight('H');
Image1.Height:=h*n*5;
Image1.Canvas.FillRect(Rect(0,0,Ima ge1.Width, Image1.Height));
For n:=k DownTo 0 do Tekst(n,k);
end;
end.

end.