Something

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Ukol.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmUkol *frmUkol;
//---------------------------------------------------------------------------
__fastcall TfrmUkol::TfrmUkol(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
  AnsiString jmeno = "xxx";
//---------------------------------------------------------------------------
void __fastcall TfrmUkol::FormCreate(TObject *Sender)
{
  this->Caption = "Domc kol . 3";
  this->Constraints->MinHeight = 183;
  this->Constraints->MinWidth = 203;
  this->Position = poScreenCenter;
  edtPole1->Clear();
  edtPole2->Clear();
  edtPole3->Clear();
  edtPole4->Clear();
  edtPole5->Clear();
  edtPole6->Clear();
  btnZprava->Caption = "Zprva";
}
//---------------------------------------------------------------------------
void __fastcall TfrmUkol::btnZpravaClick(TObject *Sender)
{
  if (jmeno == "xxx")
    ShowMessage("Jet nebylo vybrno dn pole");
  else
    ShowMessage("Naposledy bylo vybrno pole : " + jmeno);
}
//---------------------------------------------------------------------------
void __fastcall TfrmUkol::edtPole1Enter(TObject *Sender)
{
  edtPole1->Text = "Adam";
}
//---------------------------------------------------------------------------
void __fastcall TfrmUkol::edtPole1Exit(TObject *Sender)
{
  jmeno = edtPole1->Text;
  edtPole1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TfrmUkol::edtPole2Enter(TObject *Sender)
{
  edtPole2->Text = "Boena";
}
//---------------------------------------------------------------------------
void __fastcall TfrmUkol::edtPole2Exit(TObject *Sender)
{
  jmeno = edtPole2->Text;
  edtPole2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TfrmUkol::edtPole3Enter(TObject *Sender)
{
  edtPole3->Text = "Cyril";
}
//---------------------------------------------------------------------------
void __fastcall TfrmUkol::edtPole3Exit(TObject *Sender)
{
  jmeno = edtPole3->Text;
  edtPole3->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TfrmUkol::edtPole4Enter(TObject *Sender)
{
  edtPole4->Text = "David";
}
//---------------------------------------------------------------------------
void __fastcall TfrmUkol::edtPole4Exit(TObject *Sender)
{
  jmeno = edtPole4->Text;
  edtPole4->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TfrmUkol::edtPole5Enter(TObject *Sender)
{
  edtPole5->Text = "Emil";
}
//---------------------------------------------------------------------------
void __fastcall TfrmUkol::edtPole5Exit(TObject *Sender)
{
  jmeno = edtPole5->Text;
  edtPole5->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TfrmUkol::edtPole6Enter(TObject *Sender)
{
  edtPole6->Text = "Frantiek";
}
//---------------------------------------------------------------------------
void __fastcall TfrmUkol::edtPole6Exit(TObject *Sender)
{
  jmeno = edtPole6->Text;
  edtPole6->Clear();
}
//---------------------------------------------------------------------------