Code:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADOTable1->Insert();
ADOTable1->FieldByName("Ime")->AsString=Edit1->Text;
ADOTable1->Post();
Close();
}

Code:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
TLocateOptions SearchOptions;
SearchOptions << loPartialKey;
 bool locateSuccess = ADOTable1->Locate("Ime", Edit1->Text,SearchOptions); //pretrazuje ono sta imas napisano u Edit1.  
if(locateSuccess)
  ShowMessage("Pronajdeno!");
else
  ShowMessage("Ne postoi");
}

Code:

select kn.udk, kn.naziv, kn.broj_stara, ....., -- da ne kucam sve
  iz.sifra_izdavaca, iz.naziv, iz.mesto, au.sifra_autora, au.ime, au.prezime
from knjige kn, izdavac iz, autor au
where iz.sifra_izdavaca = kn.sifra_izdavaca
  and kn.sifra_autora = au.sifra_autora
  and 
  (  --  primeri za pretrazivanje
  kn.naziv = ????
  or kn.povez = ???
  or iz.naziv = ???
  or au.ime = ???
  or au.prezime = ???
  or ........
  
  );
  
delete from knjiga
where udk = ???;

update knjiga
set naziv = ???,
    sifra_izdavaca = ???,
    ....
where udk = ???;

insert into knjiga(udk, naziv, broj_starna, ....)
values(?,?,?,?,......);

-- clanovi 
select cl.sifra_clana, cl_ime, .....,
 po.datum_uzimanja, .....
from clanovi cl, pozajmica po
where cl.sifra_clana = po.sifra_clana
  and (
  cl.ime = ???
  or cl.prezime = ???
  or po.datum_uzimanja between dan1 and dan2
  or .....
  
  );
  
update clanovi
set status = ???,
  .....
where sifra_clana = ???;  

--- mozda ti je ovo bitnije
update pozajmica
set datum_uzimanja = ???,
    datum_vracanja = ???
where sifra_clana = ???
  and udk = ???;
insert into pozajmica (udk, sifra_clana, datum_uzimanja, datum_vracanja)
values (?,?,?,?);