Fehler Meldung vom Demo Datenbank Beispiel ???

[maxcom24]

also ich habe jetzt filename mit dem genauen Ziel ergänzt.

jetzt bekomme ich aber diese einen Stop bei dieser zeile:

Delphi-Quellcode:

procedure TForm1.btnInsertClick(Sender: TObject);
var
  Kontakt: TKontakt;
  query: string;
  Cols: TCols;
  Rows: TRows;
begin
  with Kontakt do
  begin
    Name := edtName.Text;
    Vorname := edtVorname.Text;
    Strasse := edtStrasse.Text;
    PLZ := StrToInt(edtPLZ.Text);
    Ort := edtOrt.Text;
    Telefon1 := edtTele.Text;
    Telefon2 := edtHandy.Text;
    EMail1 := edtMail.Text;
  end;
[COLOR="Red"]  if Insert(Kontakt) then[/COLOR]  <<<< Hier bleibt Delphi stehen :(
  begin
    query := 'SELECT * FROM kontakte ORDER BY name, vorname';
    log(query);
    ExecQuery(DBNAME, query, Cols, Rows);
    FillGrid(StringGrid1, Cols, Rows);
  end
  else
    log(mysql_error(Descriptor));
end;