FileStream von CSV-Datei um erste Zeile kürzen

[PASST]

Hi NG.

Delphi 4 (update 3)

Hintergrund:
Ich speichere von einer Webseite eine CSV-Datei per FileStream in eine Textdatei. Diese Textdatei lese ich anschließend mittels ASCIIDRV der BDE als Datentabelle ein.
Dabei muss ich zwei Dinge beachten:
a) Enthält die runtergeladene Datei den Text 'Keine Daten vorhanden', so kann und soll nichts ausgewertet werden.
b) Sind Daten vorhanden, so enthält die CSV-Datei in der ersten Zeile die Header-Daten/Feldnamen der Tabelle. Diese Zeile soll nicht in die Textdatei gespeichert werden.

Wie kann ich bereits beim Download Fall a) oder b) erkennen und darauf entsprechend beim Abspeichern in die Textdatei reagieren?

Mein Code:

Delphi-Quellcode:

  f := tfilestream.Create(sUhrkauf, fmOpenReadWrite);
  try
    HTTP.Get(sUrl, f);
    f.Seek(soFromBeginning, 0)
    if (fRead( .... = 'Keine Daten vorhanden.')
    then 
      KEIN SPEICHERN IN TEXTFILE
    else 
      SPEICHERE BIS AUF DIE ERSTE ZEILE IN TEXTFILE
  finally
    f.Free;
  end;

Wenn ich aber TFileStream richtig verstehe, speichert der bereits beim HTTP.Get alles in die Textdatei.

Kann mir jemand helfen?

gruß,
Peter

P.S.: Ich möchte nicht den Umweg gehen und die gesichter Textdatei als Textfile öffnen und dann bearbeiten.