이렇게 해보시길 권해봅니다. 참고하세요..
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Func->EditPrint(Sender);   //함수호출, 버튼 인자를 넘기고
}

/*   쩡이 님이 테스트 하실려고 한 거겠지요??? 그래서 전 주석처리...
void __fastcall TFunc::EditPrint(TObject *Sender)
{
    TButton *pButton= (TButton *) Sender;               //호출한 버튼 알아내고
    TForm *pForm    = (TForm *) pButton->Parent;   //버튼의 부모인 폼을 알아내고
    pForm->Caption= IntToStr(1234);
}
*/

/// 이 함수를 만들려고 하신 거겠지요??
void __fastcall TFunc::EditPrint(TObject *Sender)
{
    TForm *pForm= (TForm*)(((TButton *)Sender)->Parent);  //폼알아내기 한줄요약, 에러발생
    //에러내용 : E2034 - Cannot convert 'TWinControl * const' to 'TForm *'
///   --> 괄호의 묶음을 잘 살펴보세요..

    for(int i=0; i<pForm->ComponentCount; i++)  // Form에는 컨트롤이 있겠지요? 없으면 말구..
    {
        /// TEdit control이 있는지 찾아봅시다 TEdit *로 cast 가능한 컨트롤이 있나 확인해 보자구요
        TEdit *EditCtl = dynamic_cast<TEdit *>(pForm->Components[i]);   // Form이 가진 컴포넌트중..
        if(EditCtl) EditCtl->Text = "Found TEdit";   /// NULL이 아니라 있다면 내용을 바꾸어봅시다
    }
}




쩡이 님이 쓰신 글 :
: 안녕하세요? 도움을 얻고자 질문을 올립니다.
: 하고자 하는 내용이..
: Form1, Form2... 등등, 복수의 폼에 공통적으로 표시할 내용을 하나의 함수로 만들고자 합니다.
: Form1에서 호출했으면 그 결과물을 Form1의 Edit에 뿌리고요, Form2에서 호출했으면 Form2에 뿌리고자 합니다.
: 그래서 호출한 Form의 인자를 얻어와야겠다고 생각했죠. (제대로 된 생각인지는 모르겠네요.. ㅡ0ㅡ;)
:
: void __fastcall TForm1::Button1Click(TObject *Sender)
: {
:     Func->EditPrint(Sender);   //함수호출, 버튼 인자를 넘기고
: }
:
: void __fastcall TFunc::EditPrint(TObject *Sender)
: {
:     TButton *pButton= (TButton *) Sender;               //호출한 버튼 알아내고     
:     TForm *pForm    = (TForm *) pButton->Parent;   //버튼의 부모인 폼을 알아내고
:
:     pForm->Caption= IntToStr(1234);
: }
:
: 여기까지는 잘 됩니다. 그런데 문제가 되는 것이...
:
: void __fastcall TFunc::EditPrint(TObject *Sender)
: {
:     TForm *pForm= ((TButton *) Sender)->Parent;  //폼알아내기 한줄요약, 에러발생
:     //에러내용 : E2034 - Cannot convert 'TWinControl * const' to 'TForm *'
: 
:     pForm->Edit1->Text= "1234";                              //호출했던 폼의 Edit1에 출력, 에러발생
:     //에러내용 : E2316 - 'Edit1' is not a member of 'TForm'
: }
:
: Edit1에 출력하는 것은 꼭 해야되는데요.. 힌트라도 주시면 감사하겠습니다.
: 행복하세요..