Datenbank und ButtonClick

[Sulustaner2004]

ich habe ein neues problem...

ich will über einen button daten die in ein textfeld eingegeben werden in eine datenbank schreiben...wie kann ich das machen ohne das mir das programm jedesmal abschmiert ???
ich poste mal den quellcode für den button mit...

Code:

procedure TEingabe_coord.cb_takeClick(Sender: TObject);
begin
  if ((edit1.Text ='') and
      (edit.Text ='')) then
      showmessage ('Bitte was eintragen.');

   if  adoquery1.Locate('x_coord',edit1.Text,[])then

   adoquery1.FieldByName('x_coord').AsInteger;
    with adoquery1 do
     begin
     sql.Clear;
     close;
     sql.Add('SELECT Koordinaten_ST.X_COORD, Koordinaten_ST.Y_COORD');
     sql.Add('FROM dbo_Versuchsflaechen_ST');
     sql.Add('INNER JOIN Koordinaten_ST');
     sql.Add('ON dbo_Versuchsflaechen_ST.Versuchsfl_ID = Koordinaten_ST.Versuchsfl_ID');
     sql.Add('WHERE (((Koordinaten_ST.Versuchsfl_ID)=16))');
     sql.Add('ORDER BY dbo_Versuchsflaechen_ST.Versuchsfl_ID;');
     open;
     end;

   while not adoquery1.Eof do
    begin
     adoquery1.Edit;
     adoquery1.FieldByName('x_coord').Asstring:=edit1.Text;
     adoquery1.Post;
    end;
  end;
end.

ich hoffe ihr könnt mir dabei helfen....