DELPHI PROGRAM FOR DATABASE

Source Code:
procedure Tform1.create(sender:tobject);
 begin
if adotable1.locate('filed name',edit1.text,[]) then
//for save
adotable1.filedbyname('filed name').astype:=edit1.text;

end;