TCommonDialog.FileName macht Probs.

[Nightfly]

Zur Erklärung mal 2 Codeschnipsel:
Dieser Code dient zur Protokollierung, es soll der Pfad der Grafikdatei einer Nummer zugeordnet und in eine DB gespeichert werden.

Delphi-Quellcode:

procedure TForm1.OpenPictureDialog1Close(Sender: TObject);
begin
if Table3.Locate('Ohr',Table1Nr.Value,[]) then Table3.Edit else Table3.Append;
Table3Pfad.Value := OpenPictureDialog1.FileName;
Table3Ohr.Value := Table1Nr.Value;
Table3.Post;
end;

Nun, das Problem: die Nummer taucht in der Datenbank auf, allerdings ist der Pfad immer ein X, er schreibt ihn nicht in die DB.
Der folg. Code wird korrekt Ausgeführt:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
Image1.Picture.LoadFromFile (OpenPictureDialog1.FileName);
end;

Da Die Imagekomponente das ausgewählte Bild anzeigt (dies geschieht ja über FileName) muß diese Eigenschaft ja den korrekten wert beinhalten. Warum landet dieser dennoch nicht in der DB? Jemand ne idee?