Código Delphi [-] var .... procedure button1click..... begin ... end;
var .... procedure button1click..... begin ... end;