// Bu şekilde  çağırıyorum ve bana callerform bulunamadı hatası veriyordu.Çözümü en altta callerformu çağırdığın yeri callerformu atadığın yerde uses ile kullanma 

// HATALI KOD

// --- KAYDETME (POST /items) ---

void OnItemSaved(Sender)

var LRest: TCLRest;

LParentRefreshBtn : TclButton;

{

  MainForm.FormWaiting.Visible = False;

  LRest = TCLRest(Sender);

  

  if ((LRest.StatusCode == 200) || (LRest.StatusCode == 201))

  {

      ShowMessage('Ürün başarıyla eklendi!');

      

      // Formu Temizle

      ItemNameEdit.Text = '';

      ItemPriceEdit.Text = '';

      ItemNameLbl.Text = 'ÜRÜN ADI';

      MainForm.SetImage(ItemImage,' https://clomosy.com/learn/clomosy.png" rel="nofollow - https://clomosy.com/learn/clomosy.png ');

      IsImageChanged = False;

      

      // --- ANA SAYFAYI TETİKLEME (REFRESH) ---

      if (CallerForm <> nil)

      {

        // Ana formdaki gizli butonu bul ve tıkla

        LParentRefreshBtn = TclButton(CallerForm.clFindComponent('RefreshCategoriesBtn'));

        if (LParentRefreshBtn <> nil)

        {

          clDoClick(LParentRefreshBtn);

        }

      }

      //MainForm.Close;

      // ----------------------------------------

  }

  else

  {

    ShowMessage('Hata: ' + Clomosy.CLParseJSON(LRest.Response, 'message'));

  }

}

// yollama şeklim ise 

void gotouAddItems

{

  CloseAdminItemsPopUpV;

  uAddItems.SetCategoryIDV(CategoryId);

  

  //Clomosy.RunUnit('uAddItems');

  UnitAddItem.UnitName = 'uAddItems';

  UnitAddItem.CallerForm = MainForm;

  UnitAddItem.Run;

}



// ÇÖZUM