Problem beim Vererben

[Hansa]

Jo, das hier wäre schon was anderes :

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  inherited;
SetZahl;
  ShowMessage(IntToStr(i));
end;