Ich glaube du hast da was falsch verstanden. Was soll den TForm2.Button1Click von Form1 erben?
Außerdem wird ja kein SetZahl aufgerufen.
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
begin
SetZahl();
ShowMessage(IntToStr(i));
end;