yeni forma bağlantı kuramıyorum

   kodlarım bu şekilde ana form ekranında  tıklanınca yeni form sayfasına geçiş yapmak istiyorum fakat bağlantı kuramadım yardımcı olur musunuz 
var
  Form: TCLForm;
  Btn1: TClProButton;
  deneme : TCLUnit;
  void BtnC;
{
  ShowMessage('Yeni sayfaya geçiş yapılıyor...');
}
void GoTodeneme
{
  Form.clShow;
  deneme.unitName='2. sayfam';
  deneme.callerForm= Form;
  deneme.Run;
}

{
 deneme= TCLUnit.Create;
  Form = TCLForm.Create(Self);
  Form.SetFormBGImage('https://st4.depositphotos.com/17601448/24086/v/450/depositphotos_240864546-stock-illustration-continuous-line-art-drawing-rose.jpg');
  Btn1 = Form.AddNewProButton(Form, 'Btn1', 'Tıkla');
  Btn1.Align = alNone;
  Btn1.Height = 50;
  Btn1.Width = 150;
  Btn1.Left = 100;
  Btn1.Top = 70;
  Btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#228B22');
  Btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffc0cb');
  Btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#8b795e');
  Btn1.clProSettings.FontSize = 15;
  Btn1.clProSettings.FontHorzAlign = palCenter;
  Btn1.clProSettings.FontVertAlign = palCenter;
  Btn1.clProSettings.TextSettings.Font.Style = [fsBold, fsItalic];
  Btn1.clProSettings.IsTransparent = False;
  Btn1.clProSettings.IsFill = True;
  Btn1.clProSettings.IsRound = True;
  Btn1.clProSettings.RoundHeight = 15;
  Btn1.clProSettings.RoundWidth = 15;
  Btn1.clProSettings.BorderWidth = 3;
  Form.AddNewEvent(Btn1,tbeOnClick,'GoTodeneme');
  Btn1.SetclProSettings(Btn1.clProSettings);

  Form.Run;
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
ela göçel Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: Dün Durum: Aktif Değil Puanlar: 6	Mesaj Seçenekleri Yanıt Yaz Alıntı ela göçel Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: yeni forma bağlantı kuramıyorum Gönderim Zamanı: 4 Saat 58 Dakika Önce Saat 15:56
	kodlarım bu şekilde ana form ekranında tıklanınca yeni form sayfasına geçiş yapmak istiyorum fakat bağlantı kuramadım yardımcı olur musunuz var Form: TCLForm; Btn1: TClProButton; deneme : TCLUnit; void BtnC; { ShowMessage('Yeni sayfaya geçiş yapılıyor...'); } void GoTodeneme { Form.clShow; deneme.unitName='2. sayfam'; deneme.callerForm= Form; deneme.Run; } { deneme= TCLUnit.Create; Form = TCLForm.Create(Self); Form.SetFormBGImage('https://st4.depositphotos.com/17601448/24086/v/450/depositphotos_240864546-stock-illustration-continuous-line-art-drawing-rose.jpg'); Btn1 = Form.AddNewProButton(Form, 'Btn1', 'Tıkla'); Btn1.Align = alNone; Btn1.Height = 50; Btn1.Width = 150; Btn1.Left = 100; Btn1.Top = 70; Btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#228B22'); Btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffc0cb'); Btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#8b795e'); Btn1.clProSettings.FontSize = 15; Btn1.clProSettings.FontHorzAlign = palCenter; Btn1.clProSettings.FontVertAlign = palCenter; Btn1.clProSettings.TextSettings.Font.Style = [fsBold, fsItalic]; Btn1.clProSettings.IsTransparent = False; Btn1.clProSettings.IsFill = True; Btn1.clProSettings.IsRound = True; Btn1.clProSettings.RoundHeight = 15; Btn1.clProSettings.RoundWidth = 15; Btn1.clProSettings.BorderWidth = 3; Form.AddNewEvent(Btn1,tbeOnClick,'GoTodeneme'); Btn1.SetclProSettings(Btn1.clProSettings); Form.Run; }

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 218	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 4 Saat 10 Dakika Önce Saat 16:44
	Merhaba Ela, Birimi oluşturdun mu? Oluşturduğun birim adı ile kodda ki birim adlarını kontrol ettin mi?

ela göçel Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: Dün Durum: Aktif Değil Puanlar: 6	Mesaj Seçenekleri Yanıt Yaz Alıntı ela göçel Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 4 Saat 6 Dakika Önce Saat 16:48
	evet deneme adında birimde oluşturdum var uForm = TClStyleFrom; btnUnit=TCLButton; { uFrom= TClStyleFrom.Create(Self); uFrom.Run; }

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 218	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 2 Saat 48 Dakika Önce Saat 18:06
	Merhaba Ela, Anakodun düzelmiş hali bu şekil de; Birim adına ne verdiysen kodda o şekilde yazman gerekir. Birim adı deneme demiştin; var Form: TCLForm; Btn1: TClProButton; deneme : TCLUnit; void BtnC; { ShowMessage('Yeni sayfaya geçiş yapılıyor...'); } void GoTodeneme { Form.clShow; deneme.unitName='deneme'; deneme.callerForm= Form; deneme.Run; } { deneme= TCLUnit.Create; Form = TCLForm.Create(Self); Form.SetFormBGImage('https://st4.depositphotos.com/17601448/24086/v/450/depositphotos_240864546-stock-illustration-continuous-line-art-drawing-rose.jpg'); Btn1 = Form.AddNewProButton(Form, 'Btn1', 'Tıkla'); Btn1.Align = alNone; Btn1.Height = 50; Btn1.Width = 150; Btn1.Left = 100; Btn1.Top = 70; Btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#228B22'); Btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffc0cb'); Btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#8b795e'); Btn1.clProSettings.FontSize = 15; Btn1.clProSettings.FontHorzAlign = palCenter; Btn1.clProSettings.FontVertAlign = palCenter; Btn1.clProSettings.TextSettings.Font.Style = [fsBold, fsItalic]; Btn1.clProSettings.IsTransparent = False; Btn1.clProSettings.IsFill = True; Btn1.clProSettings.IsRound = True; Btn1.clProSettings.RoundHeight = 15; Btn1.clProSettings.RoundWidth = 15; Btn1.clProSettings.BorderWidth = 3; Form.AddNewEvent(Btn1,tbeOnClick,'GoTodeneme'); Btn1.SetclProSettings(Btn1.clProSettings); Form.Run; }