FTDI BitGang - rychlost

[magixe@volny.cz]

Zdravím mám takový drobný problém.

Používám obvod FTDI232R a potřebuji na jeho výstupech 
"cloumat" datama. A to co nejrychleji.
V PDF uvádějí že v modu BITGANG kde se 8bit výstup chová jako
port je rychlost baudRate x16 .

Udělal jsem si tedy testovací aplikaci v Delphi kde
otevřu USB zařízení a následně se pokouším generovat
obdelníkový signál na výstupu.
Za živého boha z toho nedostanu frekvenci signálu větší
než je 250Hz  což mě přijde velmi velmi málo :-)

Věděl by někdo jak z toho dostat maximum ?
Diky s pozdravem Milan



Ps výsek kodu kterým to páchám ..

procedure TForm1.Button3Click(Sender: TObject);
var e:integer ;
begin
SetBitMode(255,1)                  ; // mask all output  // enable bitgang
FT_Current_Baud := FT_BAUD_921600  ; // max speed x16
Set_USB_Device_BaudRate            ; // set speed
mode

for e:=1 to 10000 do
begin
FT_Out_Buffer[0]:=255           ; // data H
Write_USB_Device_Buffer(1)      ; // write data

FT_Out_Buffer[0]:=0             ; // data L
Write_USB_Device_Buffer(1)      ; // write data
end;
end;