var

  MyForm: TclForm;

  MainPnl: TclPanel;

  UserEdit, PassEdit: TclProEdit; // "2011" ismi "PassEdit" olarak değiştirildi

  LoginBtn: TclProButton;

  HeaderLbl: TclLabel;

void CheckLogin; // procedure yerine void kullanıldı

{

  // begin yerine { kullanıldı

  if ((UserEdit.Text == '') || (PassEdit.Text == '')) // Karşılaştırma için == ve mantıksal veya için ||

  {

    ShowMessage('Uyarı: Alanlar boş bırakılamaz!');

    MyForm.SetFormColor('#C0392B', '', 0);

  }

  else

  {

    ShowMessage('Giriş Başarılı! Hoş geldin: ' + UserEdit.Text);

    MyForm.SetFormColor('#27AE60', '', 0);

  }

}

{ // Ana blok başlangıcı

  MyForm = TclForm.Create(Self); // := yerine = kullanıldı

  MyForm.SetFormBGImage('https://img.freepik.com/free-photo/abstract-digital-grid-background-with-network-connection-concept_53876-124541.jpg');

  MainPnl = MyForm.AddNewPanel(MyForm, 'MainPnl');

  MainPnl.Align = alCenter;

  MainPnl.Width = 300;

  MainPnl.Height = 350;

  HeaderLbl = MyForm.AddNewLabel(MainPnl, 'HeaderLbl', 'SİSTEM GİRİŞİ');

  HeaderLbl.Align = alTop;

  HeaderLbl.Margins.Top = 20;

  HeaderLbl.Height = 30;

  HeaderLbl.TextSettings.Font.Size = 20;

  HeaderLbl.TextSettings.HorzAlign = palCenter; // Sayısal değer yerine hizalama sabiti kullanıldı

  UserEdit = MyForm.AddNewProEdit(MainPnl, 'UserEdit', 'Kullanıcı Adı');

  UserEdit.Align = alTop;

  UserEdit.Margins.Top = 30;

  UserEdit.Margins.Left = 20;

  UserEdit.Margins.Right = 20;

  UserEdit.Height = 45;

  // Değişken adı rakamla başlayamazdı, PassEdit olarak güncellendi

  PassEdit = MyForm.AddNewProEdit(MainPnl, 'PassEdit', 'Şifre');

  PassEdit.Align = alTop;

  PassEdit.Margins.Top = 15;

  PassEdit.Margins.Left = 20;

  PassEdit.Margins.Right = 20;

  PassEdit.Height = 45;

  PassEdit.Password = True;

  LoginBtn = MyForm.AddNewProButton(MainPnl, 'LoginBtn', 'GİRİŞ YAP');

  LoginBtn.Align = alBottom;

  LoginBtn.Margins.Bottom = 30;

  LoginBtn.Margins.Left = 40;

  LoginBtn.Margins.Right = 40;

  LoginBtn.Height = 50;

  MyForm.AddNewEvent(LoginBtn, tbeOnClick, 'CheckLogin');

  MyForm.Run;

}  // end yerine } kullanıldı.