prozeduren auslagern

[SaFu]

Ich weis das dieses Thema schon oft behandelt wurde, habe auch etwas hier schon nach gelesen.
Aber ich komme nicht auf die Lösung.

Wie bekomme ich meine Procedure ausgelagert in eine andere Unit.
Und wie Rufe ich Sie wieder auf.

Habe das soweit geschrieben damit erzeuge ich eine Datenbank ich habe davon noch mehr und würde sie gerne alles auslagern.

Die Komponenten sitzen aber auf der Form1 geht das so überhaupt??

Delphi-Quellcode:

unit Datenbankerzeugen;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls,DB, DBTables,
  ComCtrls, Buttons, ColorGrd;

type
 TDatenbankerzeugen = class(TForm)
 procedure tabelleerst;

  private
   pfad : string;
  end;

implementation

Uses Unit1,unit10;

//======================Benutzertabelle erstellen===============================
procedure TDatenbankerzeugen.Tabelleerst;
begin
Form1.Table1.close;
  getdir(0,Pfad);
   With Form1.Table1 Do  //Tabelle erzeugen
     begin
      DatabaseName:= Form1.Serverpfad + 'Datenbank\'; //Pfad zur Tabelle
      Form10.Table1.DatabaseName:= Form1.Serverpfad + 'Datenbank\';
      TableName:= 'Benutzerverwaltung.DB';
      TableType:= ttParadox;
     end;
      if not FileExists( Form1.Serverpfad + 'Datenbank\Benutzerverwaltung.DB') then
        begin
          With Form1.Table1 Do
            begin
              with FieldDefs Do //Datenfelder erzeugen
                begin
                 Clear;
                 Add('Nr.',ftAutoInc,0,True);
                 Add('Benutzername',ftString,30,True);
                 Add('Passwort',ftString,30,False);
                 Add('Administrator',ftboolean,0,False);
                 Add('Versuche',ftInteger,0,False);
                 Add('Gesperrt',ftString,5,False);
                end;
                  with IndexDefs do //Index Schlüssel erzeugen
                   begin
                    Clear;
                    Add('Nr','Nr.',[ixPrimary, ixUnique]); // Primär Index
                   end;
                    CreateTable;
                      begin   //User erzeugen
                       Form1.Table1.Open; //Tabelle öffnen zum Schreiben
                       Form1.Table1.Edit;
                       Form1.Table1['Benutzername']:= 'Admin';
                       Form1.Table1['Passwort']:= '123';
                       Form1.Table1['Administrator']:= True;
                       Form1.Table1['Versuche']:= 0;
                       Form1.Table1['Gesperrt']:= 'Nein';
                       //Table1['Versuche']:= 'Nein';
                       Form1.Table1.Post;  //Eintrag übernehmen
                       Form1.Table1.Close; //Tabelle schließen
                      end;
                end;
        end;
     Form1.Table1.Active:= True; //Tabelle1 auf Form1 aktivieren
     Form10.Table1.Active:= True; //Tabelle1 auf Form10 aktivieren
end;
end.