keinen Zugriff auf Datensatz

[Hansi]

Hey,

Habe mal meinen Code angehängt.
Irgendwo ist ein Fehler drin!?!
Er liest keine Daten aus der Datenbank aus? Könnt Ihr mir sagen woran es liegt?

Delphi-Quellcode:

procedure TForm1.Exportieren1Click(Sender: TObject);
var
  Kopfzeile     : String;
  f             : TextFile;
  AN            : String;
  s             : String;
  BZ            : String;
begin
  Kopfzeile:='v_products_model'+#9+'v_products_name'+#9+'EOREOR';
  AssignFile(f,'.\Export.txt');
  Rewrite(f);
  WriteLn(f,Kopfzeile);
  Table1.DatabaseName:='.\DB\';
  Table1.TableName:='Artikeldatenbank';
  Table1.Active:=true;
  Table1.Edit;
  Table1.FieldValues['Artikelnummer']:=AN;
  Table1.FieldValues['Bezeichnung']:=BZ;
  s:=AN+#9+BZ+#9+'EOREOR';
  WriteLn(f, s);
  CloseFile(f);
end;