밑에 작성하신 함수로 테스트 해보셨는지..??

그대로 하면 될꺼 같은데요..

폼 생성하고 생성된 넘을 함수로 인자로 넘겨 주면 됩니다.

각각의 폼에 공통적인 부분을 하나로 한 폼을 만들고요..

그걸 상속 받아서 작업하시면 됩니다..

그러니깐

일단 기본적인 폼 클래스를

만약

TQReport1 이라고 하면

새로운 폼을 생성해서

type
  TForm3 = class(TForm) // 여기 TForm 이란 부분에 넣어주면 상속되겠죠..
  private
    { Private declarations }
  public
    { Public declarations }
  end;

그러니깐

type
  TForm3 = class(TQReport1)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

이렇게요. 그렇게 한후에 폼에서 View As Text 를 하면

object Form3: TForm3
  Left = 357
  Top = 305
  Width = 420
  Height = 397
  Caption = 'Form3'
  PixelsPerInch = 96
  TextHeight = 13
end

이런식으로 나오는데 이부분에서 첫 부분에 Object 를 inherited 로 바꿔주면

상속받은 폼의 모양으로 폼이 바뀝니다..

이거 참 보여주면서 하는게 아니라 이해가 잘 안가실지 모르겠네요.. --;;

그렇게 하시고

procedure TForm1.PassForm(Sender : TForm);
begin
  (Sender As TQReport1).label1.Caption := '11111111';
  (Sender As TQReport1).label2.Caption := '22222222';
end;

그런 후에는 위에서 처럼 상속한 폼으로 강제 형변환 해서 적용이 가능합니다.

물론 파라메터로 들어갈 수 있는 폼은 TQReport1 을 상속한거라야 되겠죠..

음 이 방법이 과연 좋은 방법인지는 모르겠네요..