DLL-библиотека

[Lisёноk]

Здравствуйте!!!
Необходимо выполнить программу, вынеся процедуру в DLL-библиотеку.

Код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
CONST MaxX=3;
      MaxY=3;
TYPE TA=ARRAY[0..MaxX, 0..MaxY] OF REAL;

VAR a:TA; b:Ta; i, j:integer; f:boolean;

procedure findzero (x:TA; y:integer; var found: boolean);
var j:integer;
begin
  For j:=0 to 3 do
  if (x[y,j]=0) then
 begin
   found:=true;
   break;
 end
  else found:=false;
end;

begin

  for i:=0 to 3 do
 begin
   for j:=0 to 3 do
  begin
    a[i,j]:=random(10);
    stringgrid1.cells[i,j]:=floattostr(a[i,j]);
  end;
 end;


  for i:=0 to 3 do
 begin
   findzero(a,i, f);
   if f then
  begin
    for j:=0 to 3 do
   begin
     Label1.Caption:= 'Есть столбцы с нулями';
     stringgrid2.cells[i,j]:=floattostr(a[i,j])
   end;

  end
   else
 begin
   for j:=0 to 3 do
  begin
    stringgrid2.cells[i,j]:=' ';
    Label1.Caption:= 'Нет столбцов с нулями';
  end;
 end;
 end;
end;
end.

Прочитала учебник по Delphi, но ничего не поняла. ((
Что необходимо сделать для начала?

[fbus]

просто создать библиотеку -file-new-dll library

[Lisёноk]

Спасибо)))