Zugriff auf Prozedur anderer Unit

[tankm26]

Moin!

Den ZUgrifdf aus meiner 1.Unit, skat1, auf eine procedure der 2.unit, xmod, bekome ich nicht hin. Woran kann das liegen?

Danke im Voraus,

Wieland

Delphi-Quellcode:

unit skat1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ScktComp, StdCtrls, Grids, ExtCtrls, ImgList,
  ActnList, ComCtrls, jpeg, Buttons, xmod;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    btnormals: TButton;
    btnachkrbub: TButton;
    btgeben: TButton;
    btende: TButton;
    btsort2: TButton;
    btsort3: TButton;
    btmischen: TButton;
    lsort2: TLabel;
    lsort3: TLabel;
    lsort1: TLabel;
    Label1: TLabel;
    btmemory: TButton;
    btrestore: TButton;
    btsort4: TButton;
    lsort4: TLabel;
    lbox: TListBox;
    ledi1: TLabeledEdit;
    btneumax: TBitBtn;
    lmax: TLabel;
    Image1: TImage;
    trbr: TTrackBar;
    lmodi: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure btnormalsClick(Sender: TObject);
    procedure btnachkrbubClick(Sender: TObject);
    procedure btendeClick(Sender: TObject);
    procedure btgebenClick(Sender: TObject);
    procedure btsort2Click(Sender: TObject);
    procedure btsort3Click(Sender: TObject);
    procedure btmischenClick(Sender: TObject);
    procedure btmemoryClick(Sender: TObject);
    procedure btrestoreClick(Sender: TObject);
    procedure btsort4Click(Sender: TObject);
    procedure btneumaxClick(Sender: TObject);
    procedure trbrChange(Sender: TObject);
  private
    procedure zeitmessung(w,s:integer);
    procedure wimageload;
    procedure wsortiere1vert(s,w:integer);
    procedure wsortiere2einf;
    procedure wsortiere3ausw;
    procedure wsortiere4adrian;
    procedure wmischen;
    procedure wgeben;
    procedure change;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  karten:array[1..33] of TBitmap;
  kartenfeld,memory1:array[1..32] of Integer;
  nummern:array[1..33]of Integer;
  nix,von,bis,max,ws:integer; 
  c,n1,n2,q:int64;
implementation
{$R *.dfm}

.
.
.


procedure TForm1.change;
var i:integer;
begin

.
.
.

   // xmod.TForm2.    HIER IST MEIN PROBLEM
  end;
end;
end.


Unit 2 (xmod):


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ScktComp, StdCtrls, Grids, ExtCtrls, ImgList,
  ActnList, ComCtrls, jpeg, Buttons;
  
type
  TForm2 = class(TForm)
  procedure wxgeben;
  end;

  var
  zahlenfeld, memory2: array of Integer;

implementation
uses skat1;

procedure tform2.wxgeben;
var i:Integer;
begin
 for i:=1 to 30 do
  form1.lbox.Items.Add(IntToStr(i));
end;

end.