Eine Procedure in Form1 aus Form2 heraus ausführen

[DelphiFreund]

@onlinehome: Hat schon SirThornberry gesagt. Aber du hast recht, so wärs besser:

Delphi-Quellcode:

procedure TForm1.TabSheet1.Exit(Sender: TObject);
var
  k: Integer;
begin
  MacheDiesUndDas(2, k);
end;

procedure TForm2.MacheDiesUndDas2;
var
  k: Integer;
begin
  MacheDiesUndDas(1, k);
end;

procedure MacheDiesUndDas(i: Integer; var K: Integer);
begin
  K:= i + 5;
end;