Prozedur aufrufen

[semo]

Unit 1:

Delphi-Quellcode:

TForm1 = class
  private
  ...
  public
    procedure CopyFiles;
end;


...
procedure TForm1.CopyFiles;
begin
  //machwas
end;

Unit2:

Delphi-Quellcode:

uses Unit1;

....

procedure TForm2.Button1Click(Sender: TObject);
begin
  CopyFiles;
end;