for (i = 0; i < 2; i ++) {
    fscanf(f, "%10s%10s%10s%10u", Ya[i].a, Ya[i].b, Ya[i].c, &Ya[i].d);  
    Memo1->Clear();  
    Memo1->Lines->Add(Ya[i].a);  
    Memo1->Lines->Add(Ya[i].b);  
    Memo1->Lines->Add(Ya[i].c);  
    Memo1->Lines->Add(IntToStr(Ya[i].d));
}

void TForm::ButtonClick(TObject *Sender)
{
         TButton* Btn = new TButton (this);  

         Btn->Parent = Sender->Parent;
         Btn->Top = Sender->Top
         Btn->Left = 50;
         Btn->Caption = "MySuperButton";
      
         ...

         Btn->Assign(Sender); //еще может так заработать, вместо копирования каждого параметра
}