HATA

var

  MyForm: TClForm;

  mainPnl: TClPanel;

  scroll: TClVertScrollBox;

  

  // Elemanları oluşturacak prosedür

  procedure AddMatchRow(ElementName, SymbolURL, RealURL: String);

  var

    RowPnl: TClProPanel;

    ImgReal, ImgSym: TClProImage;

    LblName: TClProLabel;

  begin

    RowPnl := MyForm.AddNewProPanel(scroll, 'Row' + ElementName);

    RowPnl.Align := alTop;

    RowPnl.Height := 120;

    RowPnl.Margins.Top := 10;

    RowPnl.Margins.Left := 10;

    RowPnl.Margins.Right := 10;

    RowPnl.ClConfig.Color := clWhite;

    RowPnl.ClConfig.RoundHeight := 10;

    RowPnl.ClConfig.RoundWidth := 10;

    RowPnl.ClConfig.BorderColor := clGray;

    RowPnl.ClConfig.BorderWidth := 1;

    // Gerçek Görsel

    ImgReal := MyForm.AddNewProImage(RowPnl, 'ImgReal' + ElementName);

    ImgReal.Align := alLeft;

    ImgReal.Width := 100;

    ImgReal.Margins.All := 5;

    MyForm.SetImage(ImgReal, RealURL);

    // Sembol Görseli

    ImgSym := MyForm.AddNewProImage(RowPnl, 'ImgSym' + ElementName);

    ImgSym.Align := alRight;

    ImgSym.Width := 100;

    ImgSym.Margins.All := 5;

    MyForm.SetImage(ImgSym, SymbolURL);

    // İsim Etiketi

    LblName := MyForm.AddNewProLabel(RowPnl, 'Lbl' + ElementName, ElementName);

    LblName.Align := alClient;

    LblName.TextSettings.HorzAlign := palCenter;

    LblName.TextSettings.Font.Style := [fsBold];

    LblName.TextSettings.Font.Size := 14;

  end;

begin

  MyForm := TClForm.Create(Self);

  

  // Ana Başlık

  MyForm.AddNewProLabel(MyForm, 'Header', 'Elektrik Devre Elemanları ve Sembolleri');

  MyForm.GetClComponent('Header').Align := alTop;

  MyForm.GetClComponent('Header').Height := 50;

  TClProLabel(MyForm.GetClComponent('Header')).TextSettings.HorzAlign := palCenter;

  TClProLabel(MyForm.GetClComponent('Header')).ClConfig.FontColor := clRoyalblue;

  scroll := MyForm.AddNewVertScrollBox(MyForm, 'scroll');

  scroll.Align := alClient;

  // Elemanları Ekleme (Görsel URL'leri Clomosy eğitim materyallerinden alınmıştır)

  // 1. Pil

  AddMatchRow('PİL', 

    'https://clomosy.com/educ/battery_symbol.png', 

    'https://clomosy.com/educ/battery_real.png');

  

  // 2. Ampul

  AddMatchRow('AMPUL', 

    'https://clomosy.com/educ/bulb_symbol.png', 

    'https://clomosy.com/educ/bulb_real.png');

  // 3. Bağlantı Kablosu

  AddMatchRow('KABLO', 

    'https://clomosy.com/educ/wire_symbol.png', 

    'https://clomosy.com/educ/wire_real.png');

  // 4. Açık Anahtar

  AddMatchRow('AÇIK ANAHTAR', 

    'https://clomosy.com/educ/switch_open_symbol.png', 

    'https://clomosy.com/educ/switch_open_real.png');

  // 5. Kapalı Anahtar

  AddMatchRow('KAPALI ANAHTAR', 

    'https://clomosy.com/educ/switch_closed_symbol.png', 

    'https://clomosy.com/educ/switch_closed_real.png');

  MyForm.Run;

end;

BU KOD ÇALIŞMIYOR HATA NEREDE

https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">