deklaracja procedury

jak zadeklarować procedure moja1 zeby mogla byc uruchomiona z procedury procedure TForm2.Button1Click(Sender: TObject);
??
wiem ze to moze byc banalne dla niekórych ale siedze nad tym ze godznie i nie wiem co zrobic . I jak zeby byla zadeklarowana zeby mozna bylo uruchomic ja z nastepnej formatki czyli nastepnego unita
unit2
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public
{ Public declarations }
end;

var
Form2: TForm2;

implementation
//
{$R *.dfm}

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

end;
end.

unit Unit3;

interface

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

type
TForm3 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
moja1;
end;

end.

:)

po pierwsze wklejaj kod w znacznikach <code class="delphi"></code>.
po drugie nie pytaj o takie rzeczy na forum, no chyba ze w Dziale newbie ale lepiej najpierw poszukac w googlach.
traktuj forum jako absolutna ostatecznosc.
a co do samego pytania:

jesli chcesz swoja procedure wywolac w innym unicie to musisz ja zadeklarowac w sekcji "public { Public declarations }", lub pod deklaracjami innych procedur (np buton1click):

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }
  public
    { Public declarations }
    procedure moja1;
  end;

zeby dzialalo musisz tez poprzedzic definicje procedury nazwa klasy w ktorej wystepuje. w tym przypadku bedzie to "TForm2" czyli to samo co poprzedza procedurę Button1Click:

procedure TForm2.moja1;
begin

end;

jesli zadeklarujesz ja w sekcji "private" bedzie dostepna tylko w tym samym unicie. zewnetrzne unity nie beda jej widziec.

Dziekuje takie to proste, ale jak sie wie :)

traktuj forum jako absolutna ostatecznosc

Jak każdy by tak myślał, to byśmy się tutaj nudzili ;)