var

  MyForm: TCLForm;

  MainPanel: TCLPanel;

  BtnEleman1, BtnGorev1: TCLButton;

  SelectedEleman, SelectedGorev: String;

procedure CheckMatch;

begin

  // Boş olup olmadığını kontrol ediyoruz

  if (SelectedEleman <> '') and (SelectedGorev <> '') then

  begin

    // Karşılaştırma yaparken tek '=' kullanılır

    if (SelectedEleman = 'PİL') and (SelectedGorev = 'Enerji Sağlar') then

    begin

      ShowMessage('Doğru Eşleşme: Pil enerji kaynağıdır!');

    end

    else

    begin

      ShowMessage('Hatalı Eşleşme, tekrar dene.');

    end;

    

    // Seçimleri sıfırla

    SelectedEleman := '';

    SelectedGorev := '';

  end;

end;

procedure OnElemanClick;

begin

  SelectedEleman := 'PİL';

  CheckMatch;

end;

procedure OnGorevClick;

begin

  SelectedGorev := 'Enerji Sağlar';

  CheckMatch;

end;

begin // Ana kod bloğu başlıyor

  MyForm := TCLForm.Create(Self);

  MyForm.BtnFormMenu.Visible := False;

  MyForm.SetFormColor('#6CEADB', '#C9F3CE', clGVertical);

  MyForm.clSetCaption('ELEKTRİK DEVRESİ ELEMANLARINI TANIYORUM');

  MainPanel := MyForm.AddNewPanel(MyForm, 'MainPanel');

  MainPanel.Align := alClient;

  // Eleman Butonu

  BtnEleman1 := MyForm.AddNewButton(MainPanel, 'BtnEleman1', 'PİL RESMİ');

  BtnEleman1.Align := alTop;

  BtnEleman1.Margins.Top := 40;

  BtnEleman1.Height := 80;

  MyForm.AddNewEvent(BtnEleman1, tbeOnClick, 'OnElemanClick');

  // Görev Butonu

  BtnGorev1 := MyForm.AddNewButton(MainPanel, 'BtnGorev1', 'Elektrik enerjisi üretir.');

  BtnGorev1.Align := alBottom;

  BtnGorev1.Margins.Bottom := 40;

  BtnGorev1.Height := 80;

  MyForm.AddNewEvent(BtnGorev1, tbeOnClick, 'OnGorevClick');

  MyForm.Run;

end;