Как правильно выполнить запрос на добавление записей

INSERT INTO `client` ( `id_client` , 
`name_client` , `address_client` , 
`passport` )
VALUES (
'', '+#39+edt1.Text+#39+', '+#39+edt2.Text+#39+', 
'+#39+edt3.Text+#39+'
)

  query:=mmo1.Text;
  mysql_query(myServer, PChar(query)); 
  FRes:=mysql_store_result(myServer);
  if FRes = nil then
    ShowMessage('Данные успешно внесены!')
  else
    ShowMessage('Возникла ошибка при внесении данных!');
  mysql_free_result(FRes);

procedure TForm10.Button1Click(Sender: TObject);
begin
     ADOQuery1.SQL.Clear;
     begin
     ADOQuery1.SQL.Text := 'INSERT INTO Tab1 (Фамилия) VALUES (' + QuotedStr(Edit1.Text) + ')';
     ADOQuery1.SQL.Text := 'INSERT INTO Tab1 (Имя) VALUES (' + QuotedStr(Edit2.Text) + ')';
     ADOQuery1.SQL.Text := 'INSERT INTO Tab1 (Отчество) VALUES (' + QuotedStr(Edit3.Text) + ')';
     ADOQuery1.SQL.Text := 'INSERT INTO Tab1 (Телефон) VALUES (' + QuotedStr(Edit4.Text) + ')';
     ADOQuery1.SQL.Text := 'INSERT INTO Tab1 (ICQ) VALUES (' + QuotedStr(Edit5.Text) + ')';
     end;
     ADOQuery1.ExecSQL;
end;

INSERT INTO client ( id_client, name_client, address_client, passport ) VALUES ('', '+#39+edt1.Text+#39+', '+#39+edt2.Text+#39+', '+#39+edt3.Text+#39+')

query:='INSERT INTO client (id_client, name_client, address_client, passport) VALUES ('', '+#39+edt1.Text+#39+', '+#39+edt2.Text+#39+', '+#39+edt3.Text+#39+')';
mysql_query(myServer, PChar(query)); // Отправка запроса на сервер
FRes:=mysql_store_result(myServer); // Получение ответа от сервера

query:='INSERT INTO client (id_client,name_client,address_client,passport) VALUES ('''','''+edt1.Text+''','''+edt2.Text+''','''+edt3.Text+''')';
query:='INSERT INTO client (id_client,name_client,address_client,passport) VALUES ('+QuotedStr('')+','+QuotedStr(edt1.Text)+','+QuotedStr(edt2.Text)+','+QuotedStr(edt3.Text)+')';
query:=Format('INSERT INTO client (id_client,name_client,address_client,passport) VALUES ('''',''%s'',''%s'',''%s'')',[edt1.Text,edt2.Text,edt3.Text]);

procedure TfrmMain.BitBtnSaveClick(Sender: TObject);
begin
 strSQL := '';
 strSQL := 'INSERT INTO Contacts (LastName, FirstName, Patronimic, Organization, Position, ' +
           'Address, PhoneWork, PhoneMob, EmailWork, EmailPrivate, wwwSite, CompanyDirection, ContactNote) ' +
           'values (' + #39 + self.EditLastName.Text + #39 + ', ' + #39 + self.EditName.Text + #39 +
           ', ' + #39 + self.EditPatronimic.Text + #39 + ', ' + #39 + self.EditOrganization.Text + #39 +
           ', ' + #39 + self.EditPosition.Text + #39 + ', ' + #39 + self.EditAddress.Text + #39 +
           ', ' + #39 + self.EditPhoneWork.Text + #39 + ', ' + #39 + self.EditPhoneMob.Text + #39 +
           ', ' + #39 + self.EditEmailWork.Text + #39 + ', ' + #39 + self.EditEmailPrivate.Text + #39 +
           ', ' + #39 + self.EditWWWSite.Text + #39 + ', ' + #39 + self.EditCompanyDirection.Text + #39 +
           ', ' + #39 + self.MemoNote.Text + #39 + ')';
 
// self.MemoNote.Text := strSQL;
// ShowMessage(strSQL);
 self.QueryWorking.Active := false;
 self.QueryWorking.Close;
 self.QueryWorking.SQL.Clear;
 self.QueryWorking.SQL.Text := strSQL;
 self.QueryWorking.ExecSQL;
 self.QueryWorking.Active := true;
 self.ADOConnection.CommitTrans;
end;

self.QueryWorking.Active := true;

procedure TfrmMain.BitBtnSaveClick(Sender: TObject);
begin
 strSQL := '';
 strSQL := 'INSERT INTO Contacts (LastName, FirstName, Patronimic, ' +
           ' OrganizationName, WorkPosition, Address, PhoneWork, PhoneMob, ' +
           ' EmailWork, EmailPrivate, wwwSite, CompanyDirection, ContactNote) ' +
           ' values (' + #39 + self.EditLastName.Text + #39 + ', ' + #39 +
           self.EditName.Text + #39 + ', ' + #39 + self.EditPatronimic.Text + #39 +
           ', ' + #39 + self.EditOrganization.Text + #39 + ', ' + #39 +
           self.EditPosition.Text + #39 + ', ' + #39 + self.EditAddress.Text + #39 +
           ', ' + #39 + self.EditPhoneWork.Text + #39 + ', ' + #39 +
           self.EditPhoneMob.Text + #39 + ', ' + #39 + self.EditEmailWork.Text + #39 +
           ', ' + #39 + self.EditEmailPrivate.Text + #39 + ', ' + #39 +
           self.EditWWWSite.Text + #39 + ', ' + #39 + self.EditCompanyDirection.Text +
           #39 + ', ' + #39 + self.MemoNote.Text + #39 + ')';
 
 self.MemoNote.Text := strSQL;
// ShowMessage(strSQL);
 self.QueryWorking.Close;
 self.QueryWorking.SQL.Clear;
 self.QueryWorking.SQL.Add(strSQL);
// self.QueryWorking.SQL.Text := strSQL;
// self.QueryWorking.ExecSQL;
// self.QueryWorking.Active := true;
 self.QueryWorking.Open;
 self.ADOConnection.CommitTrans;
end;

// self.QueryWorking.ExecSQL;