procedure in Unit1 in Unit 2 verwenden

[XeRo]

Denk das geht so:

Delphi-Quellcode:

//Unit1:
...

type
  TForm1 = class(TForm)
    procedure test;

...

procedure TForm1.test;
begin
messagebox(handle,'Das ist ein Test','Test',mb_ok);
end;


//Unti2:

...

procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.test;
end;