There are two problems, if You try to complie ICSDel30.dpk with Delphi 3: First problem is in WSocket.pas - Method SetKeepAliveOption
For Delphi3 BytesReturned must be of type DWORD instead of Cardinal Possible correction: ************************************************************** old: ************************************************************** procedure TCustomWSocket.SetKeepAliveOption; var OptVal : Integer; Status : Integer; KeepAliveIn : TTcpKeepAlive; KeepAliveOut : TTcpKeepAlive; BytesReturned : Cardinal; begin . . . ************************************************************** new: ************************************************************** procedure TCustomWSocket.SetKeepAliveOption; var OptVal : Integer; Status : Integer; KeepAliveIn : TTcpKeepAlive; KeepAliveOut : TTcpKeepAlive; // 26.01.2006 Ra must be DWORD for Compilation using Delphi 3 {$IFDEF DELPHI3} BytesReturned : DWORD; {$ELSE} BytesReturned : Cardinal; {$ENDIF} begin . . . Second problem is in MimeUtil.pas - Delphi 3 has no definition for TSysCharSet Possible correction: ************************************************************** old: ************************************************************** uses SysUtils, Classes; const TMimeUtilsVersion = 103; CopyRight : String = ' MimeUtils (c) 1997-2006 F. Piette V1.03 '; SpecialsRFC822 : TSysCharSet = ['(', ')', '<', '>', '@', ',', ';', ':', '\', '"', '[', ']', '.']; . . . ************************************************************** new: ************************************************************** uses SysUtils, Classes; // 26.01.2006 Ra Delphi 3 has no definition for TSysCharSet, so let's define it here {$IFDEF DELPHI3} type TSysCharSet = set of char; {$ENDIF} const TMimeUtilsVersion = 103; CopyRight : String = ' MimeUtils (c) 1997-2006 F. Piette V1.03 '; SpecialsRFC822 : TSysCharSet = ['(', ')', '<', '>', '@', ',', ';', ':', '\', '"', '[', ']', '.']; // 26.01.2006 Ra Delphi 3 has no definition for TSysCharSet, so let's define it here {$IFDEF DELPHI3} type TSysCharSet = set of char; {$ENDIF} . . best regards Gerhard Rattinger Schwer+Kopka GmbH Herknerstr. 4 88250 Weingarten Telefon 07 51/56 164-0 Fax 07 51/56 164-10 E-mail: [EMAIL PROTECTED] -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be