procedure aufrufen!

[fredel007]

Hi Leute, ich hab da nen problem,...
Ich hab mir ne eigene Funktion (Aufruf) erstellt und deklariert,
nun will ich sie ganz einfach bei einem klick auf nen Button
aufrufen!
und es klappt net!
bitte helft mir!

Delphi-Quellcode:

  type
  TForm1 = class(TForm)

  procedure Aufruf(Sender: TObject)

  private 
   { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
begin
  Aufruf;
end;

procedure TForm1.Aufruf(Sender: TObject);
begin
 \\source
end;

end.

Danke