Dateien auf Memorystick schreiben extrem langsam

[iphi]

Hallo,

mein Programm produziert fortlaufend Daten in Form von Textdateien, die fortlaufend auf die Festplatte geschrieben werden, und zwar im Prinzip so:

Delphi-Quellcode:

var F: TextFile;
...
AssignFile(F,NextName);
Rewrite(F);
For i:=1 to n do 
  begin
    datenzeile:=...
    writeln(F, datenzeile);
    ...
  end;
CloseFile(F);
...

Das funktioniert auch. Auf Festplatte benötigt das Schreiben eines Datenfiles akzeptable 20ms.
Dassselbe auf USB-Stick benötigt ca. 2 Sekunden, also einen Faktor von 100 länger!

Wenn ich Dateien auf Festplatte bzw. den USB Stick kopiere, dann ist der Geschwindigkeitsunterschied deutlich geringer (Übertragungsrate auf Festplatte nur um Faktor 10 schneller als auf USB-Stick).

Weiß jemand, woher die Diskrepanz Faktor 10 ggü Faktor 100 kommen kann?
Wie kann ich effizienter mit meinem Programm auf den USB-Stick schreiben?