Code:
void __fastcall TForm1::T1BeforePost(TDataSet *DataSet)
{
    // zapamti sve podatke koji trebaju biti spremljeni
    long id = T1ID->Value;
    AnsiString Ime =  T1Ime->Value;
    AnsiString Prezime =  T1Prezime->Value;

    // odspoji se i ponovo spoji na bazu da dobijes "friske" podatke
    T1->Active = false;
    T1->Active = true;

    // provjeri da li je jedan od klijenata vec izbrisao taj zapis 
    TLocateOptions SearchOptions;
    SearchOptions.Clear();
    if(T1->Locate("ID", id, SearchOptions) == false && id != 0){
        Application->MessageBox("Zapis je u medjuvremenu izbrisan!", "Baza", 0);
        T1->Last();
        Abort(); // obustavi post
    }

    if(id == 0)       // id je uvijek 0 kada se dodaje novi zapis
        T1->Append();
    else              // ukoliko se editira postojeci zapis
        T1->Edit();

    // zamijeni podatke 
    T1Ime->Value = Ime;
    T1Prezime->Value = Prezime;
    // post se izvrsava automatski nakon ovoga
}