OnClick-Ereignis ohne Prozedur

[CalganX]

Delphi-Quellcode:

procedure TForm1.Serienummergenerator1Click(Sender: TObject);
var
  { ein paar Variablen }

 procedure bButtonClick(Sender: TObject);
 begin
   // ein paar Anweisungen
 end;

begin
  // einige Zeilen Code
  bButton.OnClick := bButtonClick;
end;

Das ist mein Source... Und warum funktioniert das nicht?

Chris