procedure aufrufen!

[Tyrael Y.]

Delphi-Quellcode:

  procedure Aufruf(Sender: TObject)

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


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
begin
  Aufruf(Sender);     // <--- den Parameter mit übergeben  ;)
end;

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

end.

Gruß

Edit: Mist schon wieder zu langsam