win_ftp - hvorfor virker det ikke ????

jeg kan ikke få dette til at virke, når jeg prøver at køre denne ftp, skriver den fejl.

hvorfor, og kan nogen rette det så det virker, jeg bruger delphi6, men er helt nybegynder.

www.hobbyrummet.dk/ftp.zip

jeg får flg fejl:

[Error] FTP.PAS(681): Incompatible types: 'sockaddr_in' and 'PSOCKADDR'

i linien :

  fReadSocket := accept(fFTPDataSocket, Name, NameLen);

email evt. til fedtmuledk@e-mail.dk