procedure aufrufen!

[Nalincah]

1. Die Function/Procedure unter private oder public packen (Muss dann mit TForm1.Aufruf aufgerufen werden) (Sie "gehört" dann praktisch zu der Form1. So kannst du die Proceduren auch aus anderen Units aufrufen.
oder unter private public packen dann wird sie ohne "TForm1." aufgerufen.

2. Semikolon hinter Deklaration

3. Kommentare mit // nicht mit \\

4. Deine Procedure verlangt Parameter. Sender ist die Komponenten die das ganze aufruft. Also z.b.

Aufruf(Button1); Muss aber nicht sein, du kannst das auch so schreiben:

Delphi-Quellcode:

function test;
....
function test;
begin
end;

So klappt es:

Delphi-Quellcode:

unit Unit1;

interface

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

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



  private
   { Private declarations }
  public
    { Public declarations }
    procedure Aufruf(Sender: TObject);
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.Aufruf(Sender: TObject);
begin 
  ShowMessage('Klappt');
end;

end.