LCD - Ansteuerung in Delphi (über USB)

Hi,

ich versuche gerade die hier auf der Seite vorgestellte Routine zur
Ansteuerung eines LCD's auf Delphi zu portieren. Das LCD (HD44780) ist
über dem USB - Portbaustein CY7C63001 von Cypress (mit der Modul-Bus -
Software) angeschlossen.
Irgendwie scheiterts schon bei der Initialisierung. Kann mir vielleicht
jemand weiterhelfen?

Die Funktion setport() gibt das byte auf den IO Port des USB Bausteins
aus. Das Display ist wie im Tutorial am Port angeschlossen.

Bin für jede Hilfe dankbar!


Hier der Delphi Quellcode:

function swapx(byte:byte):byte;
  begin
  result:= (($0f and byte)shl 4) or (($f0 and byte) shr 4);
  end;

procedure lcd_enable;
  begin
  setport(temp1 or $20);
  sleep(1);
  setport(temp1 and $df);  end;

procedure lcd_command(cmd:byte);
  begin
  setport($0f and swapx(cmd));
  lcd_enable;
  sleep(1);
  setport($0f and cmd);
  lcd_enable;
  sleep(1);
  end;

procedure lcd_init;
  begin;
  sleep(15);
  setport($03);
  lcd_enable;
  sleep(5);
  lcd_enable;
  sleep(5);
  lcd_enable;
  sleep(5);
  setport($02);
  lcd_enable;
  sleep(5);
  lcd_command($28);
  sleep(1);
  lcd_command($0c);
  sleep(1);
  lcd_command($04);
  sleep(1);
  end;

procedure lcd_clear;
  begin
  lcd_command($01);
  sleep(5)
  end;