FMX - Beim speichern in eine SQL-Datenbank Fehlermeldung

[jmich]

Hier meine Routine:

Delphi-Quellcode:

procedure Tfirmdaten.btn_firmpostClick(Sender: TObject);
begin
  firmdaten.firmConnection.Database := System.IOUtils.TPath.GetHomePath + PathDelim +'firmpv.dbp'; // db3 nur umbenann in dbp
   try
          firmdaten.firmConnection.Connected := True;
          firmdaten.firmConnection.Options.Direct := True;
          firmQuery.Connection :=  firmdaten.firmConnection;
          with firmQuery do
              begin
                Close;
                SQL.Clear;
                SQL.Text := 'INSERT INTO [firmenliste] '+
                            ' ( '+
                            ' [firmname],[firmstrasse],[firmplz],firmort],'+
                            ' [firmgewerk],[firmkontakt],[firmchef]'+
                            ' )'+
                            ' Values ('+
                            ' :frmnam, :frmstr, :frmplz, :frmort, '+
                            ' :frmgew, :frmkon, :frmchf '+
                            ' )';
                    ParamByName('frmnam').AsString := ed_firmname.Text;
                    ParamByName('frmstr').AsString := ed_firmstrasse.Text;
                    ParamByName('frmplz').AsString := ed_firmplz.Text;
                    ParamByName('frmort').AsString := ed_firmort.Text;
                    ParamByName('frmgew').AsString := cb_firmgewerk.Selected.Text;
                    ParamByName('frmkon').AsString := ed_firmkontakt.Text;
                    ParamByName('frmchf').AsString := ed_firmchef.Text;
                     ExecSQL();
              end;
   finally

      ShowMessage('Datensatz wurde neu angelegt !');
   end;
  firmdaten_laden;
end;

Gruß
Jmich