Здравствуйте, cr lf, Вы писали:

CL>Hi all,
CL>кто-нибудь программировал устройства на базе микросхем FTDI ?
Да, как-то пробегал рядом Забавный дивайс

Не буду настаивать на решении, но как мне вспоминается, бился с такой же проблемой.
Если мне не изменяет склероз, то на самом деле они на вход ждут указатель.
Это как раз пробелма в поставляемом файле для Delphi, тама нужно было приводить указатель
к DWORD. А я себе переписал все заново (перевод с файла .h).
я бы изменил код так:

program Project2;

{$APPTYPE CONSOLE}

uses
  Types;

const
 FT_LIST_NUMBER_ONLY        = $80000000;
 FT_LIST_BY_INDEX        = $40000000;
 FT_LIST_ALL            = $20000000;


function FT_ListDevices(arg1,arg2: Pointer; Flags: DWORD): Longword; stdcall external 'ftd2xx.dll';

var
 DevCount: Integer;

begin
  n := 1;
  if FT_ListDevices(@DevCount, nil, FT_LIST_NUMBER_ONLY) = 0 then
    WriteLn('Count = ', DevCount)
  else
    WriteLn('No FTDI devices found :( ');
end.

Попробуйте, может поможет.
Удачи!