DBctrlGrid

[traudl]

Hallo DPler, ich habe ein ähliches Problem, ich habe ein Append am Anfang eingefügt dann die anweisung, abr ich bekomme einen Exception Fehler

Delphi-Quellcode:

procedure TMainFrm.btnInsertClick(Sender: TObject);
var DataSet:TdataSet;
begin
      if dlgOpen.Execute then begin
        if not SameText(ExtractFileExt(dlgOpen.FileName), '.jpg') then
          raise Exception.Create('Falsches Dateiformat!' +#13#10+ 'Nur JPG erlaubt');
        TblKunden.Append;
        TblKunden.FieldByName('KdBldName').AsString := ExtractFileName(dlgOpen.FileName);
        TBlobField(DataSet.FieldByName('KdBild')).LoadFromFile(dlgOpen.FileName);
        TblKunden.Post;
        grdKd.SetFocus;
      end;
end;

Bei dem TBlobField kommt der Exception Fehler. Hat jemand eine Idee?

Danke Gruß Udo