var

  MyForm : TclForm;

  MyEdit : TclEdit;

  BtnDegistir : TclButton;

  Durum : Boolean;

void YerTutucuyuDegistir;

{

  // Koşula göre PlaceHolder (TextPrompt) değiştirme

  if (Durum == True)

  {

    MyEdit.TextPrompt = 'Lütfen E-Mail Giriniz...';

    Durum = False;

  }

  else

  {

    MyEdit.TextPrompt = 'Lütfen Telefon No Giriniz...';

    Durum = True;

  }

  

  MyEdit.Text = ''; 

}

{

  MyForm = TclForm.Create(Self);

  Durum = True;

  MyEdit = MyForm.AddNewEdit(MyForm, 'MyEdit', '');

  MyEdit.Align = alTop;

  MyEdit.Height = 50;

  MyEdit.Margins.Top = 20;

  

  MyEdit.TextPrompt = 'Başlangıç Değeri...';

  BtnDegistir = MyForm.AddNewButton(MyForm, 'BtnDegistir', 'İpucunu Değiştir');

  BtnDegistir.Align = alTop;

  BtnDegistir.Margins.Top = 10;

  MyForm.AddNewEvent(BtnDegistir, tbeOnClick, 'YerTutucuyuDegistir');

  MyForm.Run;

}

inceler misin