Помогите сделать dll

[Evaeva123]

Как эту программу сделать в dll?

var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure O_sobake(n:integer);
begin
if n>0 then
 begin
  sleep(1000); //пауза 1 сек.(нц 500 раз кц // пауза)
  Application.ProcessMessages;//показ процесса
  Form1.Memo1.Lines.Add('');//вывод нс
  Form1.Memo1.Lines.Add('Как это было:');
  Form1.Memo1.Lines.Add('У попа была собака - он ее любил.');
  Form1.Memo1.Lines.Add('Она съела кусок мяса - он ее убил.');
  Form1.Memo1.Lines.Add('Убил и закопал и на могиле написал:');
  O_sobake(n-1) // рекурсивный вызов алгоритма
 end; 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
n:=strtoint(Edit1.Text);
Memo1.Clear;
Memo1.ScrollBars:=ssVertical;
O_sobake(n);
end;

[min@y™]

давай, заспамь ещё 100500 форумов своим сообщением!
всё равно, нужно задание, чтобы понять, чего ты добиваешься.
Как звучит оригинал задания?

надо было и тут написать, что