TClientSocket - FTP Problem

[Struwl]

Hab es nun etwas umgeändert ... geht aber immer noch nicht.

Delphi-Quellcode:

const
  endl = #13#10;

.. 

 Client.Socket.SendText('TYPE A'+endl);
 Client.Socket.SendText('PORT 192,168,0,12,12,237'+endl);
 Client.Socket.SendText('LIST /'+endl);

<ClientRead> 200 Type set to A.
<ClientRead> 200 PORT command successful.
<ClientRead> 425 Can't build data connection: Connection refused


edit:

Ok habs glaube ich fast.