diff -Naur -x'*.dcu' -x__history TCVcsApi-orig/TCDirectIntf.pas TCVcsApi/TCDirectIntf.pas
--- TCVcsApi-orig/TCDirectIntf.pas	2009-06-11 13:58:06.742202300 +0200
+++ TCVcsApi/TCDirectIntf.pas	2009-06-09 12:52:52.000000000 +0200
@@ -296,7 +296,7 @@
   TVcsCheckInFile = function ( ProjID, FolderID: Cardinal; var FileID, RevisionID: Cardinal; pFileName: PChar; CheckInInfo: PCheckInInfo ): Integer; stdcall;
   TVcsCheckInFileEx = function ( ProjID, FolderID: Cardinal; var FileID, RevisionID: Cardinal; pFileName, pSourceFile, pUserName: PChar; DateTimeOverride: Integer; CheckInInfo: PCheckInInfo ): Integer; stdcall;
   TVcsCheckOutFile = function ( FileID: Cardinal; var RevisionID: Cardinal; CheckOutInfo: PCheckOutInfo ): Integer; stdcall;
-  TVcsCheckOutFileEx = function ( FileID: Cardinal; var RevisionID: Cardinal; CheckOutInfo: PCheckOutInfo; FileName: PChar ): Integer; stdcall;
+  TVcsCheckOutFileEx = function ( FileID: Cardinal; var RevisionID: Cardinal; CheckOutInfo: PCheckOutInfo; FileName: PAnsiChar ): Integer; stdcall;
   TVcsCheckOutFiles = function ( IDsAndNames: PChar; CheckOutInfo: PCheckOutInfo; FBProc: TActionFeedback; TerminateOnError: Boolean ): Integer; stdcall;
   TVcsSetMergeInfo = function ( FileID, RevisionID, MergedFrom: Cardinal ): Integer; stdcall;
   TVcsGetCommonRoot = function ( FileID, Revision1, Revision2: Cardinal; var CommonRevision: Cardinal ): Integer; stdcall;
@@ -555,7 +555,7 @@
     LoadIt;
   if not Assigned( PVcsCheckOutFileEx ) then
     raise EGpvFunctionNotExported.Create( 'Function not exported: VcsCheckOutFileEx' );
-  Result := PVcsCheckOutFileEx( FileID, RevisionID, CheckOutInfo, PChar( FileName ) );
+  Result := PVcsCheckOutFileEx( FileID, RevisionID, CheckOutInfo, PAnsiChar( FileName ) );
 end;
 
 function VcsCheckOutFiles( IDsAndNames: TStrings; CheckOutInfo: PCheckOutInfo; FBProc: TActionFeedback; TerminateOnError: Boolean ): Integer;
@@ -1031,15 +1031,15 @@
   Result := PVcsDisconnect;
 end;
 
-function IntEnumProjects( Context, Data: Pointer; pName: PChar; ID: Cardinal ): Boolean; stdcall; forward;
-function IntEnumFolders( Context, Data: Pointer; pName, pTCPath, pLocalFolder: PChar; ID, ParentID: Cardinal; FolderCount, FileCount: Integer ): Boolean; stdcall; forward;
-function IntEnumFiles( Context, Data: Pointer; pName, pLocalPath, pLockedBy: PChar; ID, ParentID, AncestorID: Cardinal; Modified, Timestamp, CompressedSize, RevisionCount, ShareCount, Status: Integer; IsVirtual, Frozen: Boolean ): Boolean; stdcall; forward;
-function IntEnumLockedFiles( Context, Data: Pointer; pName, pLockPath: PChar; ID, ParentID, LockedRevID: Cardinal; Modified, RevisionCount, Status: Integer ): Boolean; stdcall; forward;
-function IntGetProjectList( Context, Data: Pointer; pName: PChar; ID: Cardinal ): Boolean; stdcall; forward;
-function IntEnumProc( Context, Data: Pointer; pName, pDescription, pHost: PChar; Port: Integer; Current: Boolean ): Boolean; stdcall; forward;
-function IntEnumViews( Context, Data: Pointer; pName, pDescription: PChar; ID: Cardinal; Shared, Current: Boolean ): Boolean; stdcall; forward;
-function IntEnumRevisions( Context, Data: Pointer; pName, pAuthor, pComments, pLockedBy: PChar; ID, ParentID: Cardinal; Modified, Timestamp, CompressedSize, OriginalSize, CRC, VerCount, PromoCount: Integer ): Boolean; stdcall; forward;
-function IntEnumLabels( Context, Data: Pointer; LabelType: Integer; pName, pComments: PChar; ID: Cardinal; Timestamp: Integer ): Boolean; stdcall; forward;
+function IntEnumProjects( Context, Data: Pointer; pName: PAnsiChar; ID: Cardinal ): Boolean; stdcall; forward;
+function IntEnumFolders( Context, Data: Pointer; pName, pTCPath, pLocalFolder: PAnsiChar; ID, ParentID: Cardinal; FolderCount, FileCount: Integer ): Boolean; stdcall; forward;
+function IntEnumFiles( Context, Data: Pointer; pName, pLocalPath, pLockedBy: PAnsiChar; ID, ParentID, AncestorID: Cardinal; Modified, Timestamp, CompressedSize, RevisionCount, ShareCount, Status: Integer; IsVirtual, Frozen: Boolean ): Boolean; stdcall; forward;
+function IntEnumLockedFiles( Context, Data: Pointer; pName, pLockPath: PAnsiChar; ID, ParentID, LockedRevID: Cardinal; Modified, RevisionCount, Status: Integer ): Boolean; stdcall; forward;
+function IntGetProjectList( Context, Data: Pointer; pName: PAnsiChar; ID: Cardinal ): Boolean; stdcall; forward;
+function IntEnumProc( Context, Data: Pointer; pName, pDescription, pHost: PAnsiChar; Port: Integer; Current: Boolean ): Boolean; stdcall; forward;
+function IntEnumViews( Context, Data: Pointer; pName, pDescription: PAnsiChar; ID: Cardinal; Shared, Current: Boolean ): Boolean; stdcall; forward;
+function IntEnumRevisions( Context, Data: Pointer; pName, pAuthor, pComments, pLockedBy: PAnsiChar; ID, ParentID: Cardinal; Modified, Timestamp, CompressedSize, OriginalSize, CRC, VerCount, PromoCount: Integer ): Boolean; stdcall; forward;
+function IntEnumLabels( Context, Data: Pointer; LabelType: Integer; pName, pComments: PAnsiChar; ID: Cardinal; Timestamp: Integer ): Boolean; stdcall; forward;
 
 function VcsEnumLabels( RootID, RevID: Cardinal; LabelType: Integer; EnumProc: TEnumLabels; Data: Pointer ): Integer;
 begin
@@ -1299,7 +1299,7 @@
 
 // Internal stuff
 
-function IntEnumLabels( Context, Data: Pointer; LabelType: Integer; pName, pComments: PChar; ID: Cardinal; Timestamp: Integer ): Boolean;
+function IntEnumLabels( Context, Data: Pointer; LabelType: Integer; pName, pComments: PAnsiChar; ID: Cardinal; Timestamp: Integer ): Boolean;
 var
   AProc: TEnumLabels;
 begin
@@ -1309,7 +1309,7 @@
     Result := AProc( Data, LabelType, String( pName ), String( pComments ), ID, Timestamp );
 end;
 
-function IntEnumRevisions( Context, Data: Pointer; pName, pAuthor, pComments, pLockedBy: PChar; ID, ParentID: Cardinal; Modified, Timestamp, CompressedSize, OriginalSize, CRC, VerCount, PromoCount: Integer ): Boolean;
+function IntEnumRevisions( Context, Data: Pointer; pName, pAuthor, pComments, pLockedBy: PAnsiChar; ID, ParentID: Cardinal; Modified, Timestamp, CompressedSize, OriginalSize, CRC, VerCount, PromoCount: Integer ): Boolean;
 var
   AProc: TEnumRevisions;
 begin
@@ -1319,7 +1319,7 @@
     Result := AProc( Data, String( pName ), String( pAuthor ), String( pComments ), String( pLockedBy ), ID, ParentID, Modified, Timestamp, CompressedSize, OriginalSize, CRC, VerCount, PromoCount );
 end;
 
-function IntEnumViews( Context, Data: Pointer; pName, pDescription: PChar; ID: Cardinal; Shared, Current: Boolean ): Boolean;
+function IntEnumViews( Context, Data: Pointer; pName, pDescription: PAnsiChar; ID: Cardinal; Shared, Current: Boolean ): Boolean;
 var
   AProc: TEnumViews;
 begin
@@ -1329,7 +1329,7 @@
     Result := AProc( Data, String( pName ), String( pDescription ), ID, Shared, Current );
 end;
 
-function IntEnumLockedFiles( Context, Data: Pointer; pName, pLockPath: PChar; ID, ParentID, LockedRevID: Cardinal; Modified, RevisionCount, Status: Integer ): Boolean;
+function IntEnumLockedFiles( Context, Data: Pointer; pName, pLockPath: PAnsiChar; ID, ParentID, LockedRevID: Cardinal; Modified, RevisionCount, Status: Integer ): Boolean;
 var
   AProc: TEnumLockedFiles;
 begin
@@ -1339,7 +1339,7 @@
     Result := AProc( Data, String( pName ), String( pLockPath ), ID, ParentID, LockedRevID, Modified, RevisionCount, Status );
 end;
 
-function IntEnumFiles( Context, Data: Pointer; pName, pLocalPath, pLockedBy: PChar; ID, ParentID, AncestorID: Cardinal; Modified, Timestamp, CompressedSize, RevisionCount, ShareCount, Status: Integer; IsVirtual, Frozen: Boolean ): Boolean;
+function IntEnumFiles( Context, Data: Pointer; pName, pLocalPath, pLockedBy: PAnsiChar; ID, ParentID, AncestorID: Cardinal; Modified, Timestamp, CompressedSize, RevisionCount, ShareCount, Status: Integer; IsVirtual, Frozen: Boolean ): Boolean;
 var
   AProc: TEnumFiles;
 begin
@@ -1349,7 +1349,7 @@
     Result := AProc( Data, String( pName ), String( pLocalPath ), String( pLockedBy ), ID, ParentID, AncestorID, Modified, Timestamp, CompressedSize, RevisionCount, ShareCount, Status, IsVirtual, Frozen );
 end;
 
-function IntEnumFolders( Context, Data: Pointer; pName, pTCPath, pLocalFolder: PChar; ID, ParentID: Cardinal; FolderCount, FileCount: Integer ): Boolean;
+function IntEnumFolders( Context, Data: Pointer; pName, pTCPath, pLocalFolder: PAnsiChar; ID, ParentID: Cardinal; FolderCount, FileCount: Integer ): Boolean;
 var
   AProc: TEnumFolders;
 begin
@@ -1359,7 +1359,7 @@
     Result := AProc( Data, String( pName ), String( pTCPath ), String( pLocalFolder ), ID, ParentID, FolderCount, FileCount );
 end;
 
-function IntGetProjectList( Context, Data: Pointer; pName: PChar; ID: Cardinal ): Boolean;
+function IntGetProjectList( Context, Data: Pointer; pName: PAnsiChar; ID: Cardinal ): Boolean;
 var
   Strings: TStrings;
 begin
@@ -1369,7 +1369,7 @@
     Strings.AddObject( String( pName ), Pointer( ID ) );
 end;
 
-function IntEnumProjects( Context, Data: Pointer; pName: PChar; ID: Cardinal ): Boolean;
+function IntEnumProjects( Context, Data: Pointer; pName: PAnsiChar; ID: Cardinal ): Boolean;
 var
   AProc: TEnumProjects;
 begin
@@ -1379,7 +1379,7 @@
     Result := AProc( Data, String( pName ), ID );
 end;
 
-function IntEnumProc( Context, Data: Pointer; pName, pDescription, pHost: PChar; Port: Integer; Current: Boolean ): Boolean;
+function IntEnumProc( Context, Data: Pointer; pName, pDescription, pHost: PAnsiChar; Port: Integer; Current: Boolean ): Boolean;
 var
   AProc: TEnumConnections;
 begin
diff -Naur -x'*.dcu' -x__history TCVcsApi-orig/TCIntf.pas TCVcsApi/TCIntf.pas
--- TCVcsApi-orig/TCIntf.pas	2009-06-11 13:58:06.757827700 +0200
+++ TCVcsApi/TCIntf.pas	2009-06-17 10:54:52.000000000 +0200
@@ -377,11 +377,11 @@
 type
   TTCVcsInitialize = function ( Handle: Cardinal; LoadCache: Boolean; ProgressProc: TSplashProgress ): Integer; stdcall;
   TTCVcsAutoUpdateCache = procedure ( Enable: Boolean ); stdcall;
-  TTCVcsBrowseFolder = function ( pCaption, pDescription, pFileMask: PChar; DlgType: Word; var AnID: Cardinal; const pObjectName: PChar; CanSelectProject: Boolean ): Boolean; stdcall;
-  TTCVcsCurrentUserName = function ( const pUserName: PChar ): Integer; stdcall;
+  TTCVcsBrowseFolder = function ( pCaption, pDescription, pFileMask: PChar; DlgType: Word; var AnID: Cardinal; const pObjectName: PAnsiChar; CanSelectProject: Boolean ): Boolean; stdcall;
+  TTCVcsCurrentUserName = function ( const pUserName: PAnsiChar ): Integer; stdcall;
   TTCVcsCreateProject = function ( var ProjID: Cardinal; pName: PChar ): Integer; stdcall;
   TTCVcsSelectProject = function ( const pProjName: PChar; var ProjID: Cardinal; CanCreate: Boolean ): Boolean; stdcall;
-  TTCVcsCurrentConnection = function ( const pConnection: PChar ): Integer; stdcall;
+  TTCVcsCurrentConnection = function ( const pConnection: PAnsiChar ): Integer; stdcall;
   TTCVcsFileMainExtension = function ( pFile: PChar; const pExt: PChar ): Integer; stdcall;
   TTCVcsProjectIDByName = function ( const pName: PChar ): Cardinal; stdcall;
   TTCVcsGetFileList = function ( RootID: Cardinal; const pFiles: PChar; var Size: Integer ): Boolean; stdcall;
@@ -413,7 +413,7 @@
   TTCVcsGetViewID = function : Cardinal; stdcall;
   TTCVcsAbout = procedure; stdcall;
   TTCVcsRefreshCache = procedure; stdcall;
-  TTCVcsGetViews = procedure ( const pViews: PChar; var ActiveIndex: Integer ); stdcall;
+  TTCVcsGetViews = procedure ( const pViews: PAnsiChar; var ActiveIndex: Integer ); stdcall;
   TTCVcsSelectView = function ( pViewName: PChar ): Integer; stdcall;
   TTCVcsSelectConnection = procedure ( pConnection: PChar ); stdcall;
   TTCVcsSelectConnectionEx = procedure ( pConnection: PChar; LoadCacheOnLoginFail, LoadCacheOnConnectFail: Boolean ); stdcall;
@@ -424,7 +424,7 @@
   TVcsGetBranchInfo = function ( FileID, RevisionID: Cardinal; var BranchedFrom, BranchTip: Cardinal ): Integer; stdcall;
   TTCVcsLogin = function : Boolean; stdcall;
   TTCVcsGetObjectVersions = function ( const ID: Integer; const Stream: TStream ): Integer; stdcall;
-  TTCVcsErrorString = procedure ( ID: Integer; const pMsg: PChar ); stdcall;
+  TTCVcsErrorString = procedure ( ID: Integer; const pMsg: PAnsiChar ); stdcall;
   TTCVcsFolderIDByDisplayPath = function ( pPath: PChar ): Cardinal; stdcall;
   TTCVcsShowHelp = procedure ( pHelpFile: pChar; Topic: Word ); stdcall;
   TTCVcsRelease = procedure; stdcall;
@@ -1374,14 +1374,14 @@
 end;
 
 
-function IntEnumProc( Context, Data: Pointer; pName, pDescription, pHost: PChar; Port: Integer; Current: Boolean ): Boolean; stdcall; forward;
-function IntEnumViews( Context, Data: Pointer; pName, pDescription: PChar; ID: Cardinal; Shared, Current: Boolean ): Boolean; stdcall; forward;
-function IntEnumProjects( Context, Data: Pointer; pName: PChar; ID: Cardinal ): Boolean; stdcall; forward;
-function IntEnumFolders( Context, Data: Pointer; pName, pTCPath, pLocalFolder: PChar; ID, ParentID: Cardinal; FolderCount, FileCount: Integer ): Boolean; stdcall; forward;
-function IntEnumFiles( Context, Data: Pointer; pName, pLocalPath, pLockedBy: PChar; ID, ParentID, AncestorID: Cardinal; Modified, Timestamp, CompressedSize, RevisionCount, ShareCount, Status: Integer; IsVirtual, Frozen: Boolean ): Boolean; stdcall; forward;
-function IntEnumNewFiles( Context, Data: Pointer; pFullPath: PChar; ProjectID, FolderID: Cardinal ): Boolean; stdcall; forward;
-function IntEnumRevisions( Context, Data: Pointer; pName, pAuthor, pComments, pLockedBy: PChar; ID, ParentID: Cardinal; Modified, Timestamp, CompressedSize, OriginalSize, CRC, VerCount, PromoCount: Integer ): Boolean; stdcall; forward;
-function IntEnumLabels( Context, Data: Pointer; LabelType: Integer; pName, pComments: PChar; ID: Cardinal; Timestamp: Integer ): Boolean; stdcall; forward;
+function IntEnumProc( Context, Data: Pointer; pName, pDescription, pHost: PAnsiChar; Port: Integer; Current: Boolean ): Boolean; stdcall; forward;
+function IntEnumViews( Context, Data: Pointer; pName, pDescription: PAnsiChar; ID: Cardinal; Shared, Current: Boolean ): Boolean; stdcall; forward;
+function IntEnumProjects( Context, Data: Pointer; pName: PAnsiChar; ID: Cardinal ): Boolean; stdcall; forward;
+function IntEnumFolders( Context, Data: Pointer; pName, pTCPath, pLocalFolder: PAnsiChar; ID, ParentID: Cardinal; FolderCount, FileCount: Integer ): Boolean; stdcall; forward;
+function IntEnumFiles( Context, Data: Pointer; pName, pLocalPath, pLockedBy: PAnsiChar; ID, ParentID, AncestorID: Cardinal; Modified, Timestamp, CompressedSize, RevisionCount, ShareCount, Status: Integer; IsVirtual, Frozen: Boolean ): Boolean; stdcall; forward;
+function IntEnumNewFiles( Context, Data: Pointer; pFullPath: PAnsiChar; ProjectID, FolderID: Cardinal ): Boolean; stdcall; forward;
+function IntEnumRevisions( Context, Data: Pointer; pName, pAuthor, pComments, pLockedBy: PAnsiChar; ID, ParentID: Cardinal; Modified, Timestamp, CompressedSize, OriginalSize, CRC, VerCount, PromoCount: Integer ): Boolean; stdcall; forward;
+function IntEnumLabels( Context, Data: Pointer; LabelType: Integer; pName, pComments: PAnsiChar; ID: Cardinal; Timestamp: Integer ): Boolean; stdcall; forward;
 
 function VcsEnumLabels( RootID, RevID: Cardinal; LabelType: Integer; EnumProc: TEnumLabels; Data: Pointer ): Integer;
 begin
@@ -1685,7 +1685,7 @@
 // Displays a dialog box to select an object from the repository.
 function TCVcsBrowseFolder( ACaption, Description, FileMask: String; DlgType: Word; var AnID: Cardinal; var ObjectName: String; CanSelectProject: Boolean ): Boolean;
 var
-  pObjectName: PChar;
+  pObjectName: PAnsiChar;
 begin
   if not Assigned( PTCVcsBrowseFolder ) then
     LoadIt;
@@ -1824,7 +1824,7 @@
 // Returns the UserName of the currently logged in user
 function TCVcsCurrentUserName: String;
 var
-  pName: PChar;
+  pName: PAnsiChar;
 begin
   if not Assigned( PTCVcsCurrentUserName ) then
     LoadIt;
@@ -1882,7 +1882,7 @@
 // connection
 function TCVcsCurrentConnection: String;
 var
-  pName: PChar;
+  pName: PAnsiChar;
 begin
   if not Assigned( PTCVcsCurrentConnection ) then
     LoadIt;
@@ -2083,7 +2083,7 @@
 // view is returned in ActiveIndex
 procedure TCVcsGetViews( const Views: TStrings; var ActiveIndex: Integer );
 var
-  pViews: PChar;
+  pViews: PAnsiChar;
 begin
   if not Assigned( PTCVcsGetViews ) then
     LoadIt;
@@ -3021,7 +3021,7 @@
 
 function TCVcsErrorString( ID: Integer ): String;
 var
-  pMsg: PChar;
+  pMsg: PAnsiChar;
 begin
   if not Assigned( PTCVcsErrorString ) then
     LoadIt;
@@ -3121,7 +3121,7 @@
   end;
 end;
 
-function IntEnumProc( Context, Data: Pointer; pName, pDescription, pHost: PChar; Port: Integer; Current: Boolean ): Boolean;
+function IntEnumProc( Context, Data: Pointer; pName, pDescription, pHost: PAnsiChar; Port: Integer; Current: Boolean ): Boolean;
 var
   AProc: TEnumConnections;
 begin
@@ -3131,7 +3131,7 @@
     Result := AProc( Data, String( pName ), String( pDescription ), String( pHost ), Port, Current );
 end;
 
-function IntEnumViews( Context, Data: Pointer; pName, pDescription: PChar; ID: Cardinal; Shared, Current: Boolean ): Boolean;
+function IntEnumViews( Context, Data: Pointer; pName, pDescription: PAnsiChar; ID: Cardinal; Shared, Current: Boolean ): Boolean;
 var
   AProc: TEnumViews;
 begin
@@ -3141,7 +3141,7 @@
     Result := AProc( Data, String( pName ), String( pDescription ), ID, Shared, Current );
 end;
 
-function IntEnumProjects( Context, Data: Pointer; pName: PChar; ID: Cardinal ): Boolean;
+function IntEnumProjects( Context, Data: Pointer; pName: PAnsiChar; ID: Cardinal ): Boolean;
 var
   AProc: TEnumProjects;
 begin
@@ -3151,7 +3151,7 @@
     Result := AProc( Data, String( pName ), ID );
 end;
 
-function IntEnumFolders( Context, Data: Pointer; pName, pTCPath, pLocalFolder: PChar; ID, ParentID: Cardinal; FolderCount, FileCount: Integer ): Boolean;
+function IntEnumFolders( Context, Data: Pointer; pName, pTCPath, pLocalFolder: PAnsiChar; ID, ParentID: Cardinal; FolderCount, FileCount: Integer ): Boolean;
 var
   AProc: TEnumFolders;
 begin
@@ -3161,7 +3161,7 @@
     Result := AProc( Data, String( pName ), String( pTCPath ), String( pLocalFolder ), ID, ParentID, FolderCount, FileCount );
 end;
 
-function IntEnumNewFiles( Context, Data: Pointer; pFullPath: PChar; ProjectID, FolderID: Cardinal ): Boolean;
+function IntEnumNewFiles( Context, Data: Pointer; pFullPath: PAnsiChar; ProjectID, FolderID: Cardinal ): Boolean;
 var
   AProc: TEnumNewFiles;
 begin
@@ -3171,7 +3171,7 @@
     Result := AProc( Data, String( pFullPath ), ProjectID, FolderID );
 end;
 
-function IntEnumFiles( Context, Data: Pointer; pName, pLocalPath, pLockedBy: PChar; ID, ParentID, AncestorID: Cardinal; Modified, Timestamp, CompressedSize, RevisionCount, ShareCount, Status: Integer; IsVirtual, Frozen: Boolean ): Boolean;
+function IntEnumFiles( Context, Data: Pointer; pName, pLocalPath, pLockedBy: PAnsiChar; ID, ParentID, AncestorID: Cardinal; Modified, Timestamp, CompressedSize, RevisionCount, ShareCount, Status: Integer; IsVirtual, Frozen: Boolean ): Boolean;
 var
   AProc: TEnumFiles;
 begin
@@ -3181,7 +3181,7 @@
     Result := AProc( Data, String( pName ), String( pLocalPath ), String( pLockedBy ), ID, ParentID, AncestorID, Modified, Timestamp, CompressedSize, RevisionCount, ShareCount, Status, IsVirtual, Frozen );
 end;
 
-function IntEnumLabels( Context, Data: Pointer; LabelType: Integer; pName, pComments: PChar; ID: Cardinal; Timestamp: Integer ): Boolean;
+function IntEnumLabels( Context, Data: Pointer; LabelType: Integer; pName, pComments: PAnsiChar; ID: Cardinal; Timestamp: Integer ): Boolean;
 var
   AProc: TEnumLabels;
 begin
@@ -3191,7 +3191,7 @@
     Result := AProc( Data, LabelType, String( pName ), String( pComments ), ID, Timestamp );
 end;
 
-function IntEnumRevisions( Context, Data: Pointer; pName, pAuthor, pComments, pLockedBy: PChar; ID, ParentID: Cardinal; Modified, Timestamp, CompressedSize, OriginalSize, CRC, VerCount, PromoCount: Integer ): Boolean;
+function IntEnumRevisions( Context, Data: Pointer; pName, pAuthor, pComments, pLockedBy: PAnsiChar; ID, ParentID: Cardinal; Modified, Timestamp, CompressedSize, OriginalSize, CRC, VerCount, PromoCount: Integer ): Boolean;
 var
   AProc: TEnumRevisions;
 begin
diff -Naur -x'*.dcu' -x__history TCVcsApi-orig/TCVcsTypes.pas TCVcsApi/TCVcsTypes.pas
--- TCVcsApi-orig/TCVcsTypes.pas	2009-06-11 13:58:06.882830900 +0200
+++ TCVcsApi/TCVcsTypes.pas	2009-06-09 12:50:24.000000000 +0200
@@ -116,15 +116,15 @@
   TCardinalArray = array of Cardinal;
   PCardinalArray = ^TCardinalArray;
   // External
-  TEnumConnections = function ( Data: Pointer; Name, Description, Host: String; Port: Integer; Current: Boolean ): Boolean;
-  TEnumViews = function ( Data: Pointer; Name, Description: String; ID: Cardinal; Shared, Current: Boolean ): Boolean;
-  TEnumProjects = function ( Data: Pointer; Name: String; ID: Cardinal ): Boolean;
-  TEnumFolders = function ( Data: Pointer; Name, TCPath, LocalFolder: String; ID, ParentID: Cardinal; FolderCount, FileCount: Integer ): Boolean;
-  TEnumFiles = function ( Data: Pointer; Name, LocalPath, LockedBy: String; ID, ParentID, AncestorID: Cardinal; Modified, Timestamp, CompressedSize, RevisionCount, ShareCount, Status: Integer; IsVirtual, Frozen: Boolean ): Boolean;
-  TEnumLockedFiles = function ( Data: Pointer; Name, LockPath: String; ID, ParentID, LockedRevID: Cardinal; Modified, RevisionCount, Status: Integer ): Boolean;
-  TEnumNewFiles = function ( Data: Pointer; FullPath: String; ProjectID, FolderID: Cardinal ): Boolean;
-  TEnumRevisions = function ( Data: Pointer; Name, Author, Comments, LockedBy: String; ID, ParentID: Cardinal; Modified, Timestamp, CompressedSize, OriginalSize, CRC, VerCount, PromoCount: Integer ): Boolean;
-  TEnumLabels = function ( Data: Pointer; LabelType: Integer; Name, Comments: String; ID: Cardinal; Timestamp: Integer ): Boolean;
+  TEnumConnections = function ( Data: Pointer; Name, Description, Host: AnsiString; Port: Integer; Current: Boolean ): Boolean;
+  TEnumViews = function ( Data: Pointer; Name, Description: AnsiString; ID: Cardinal; Shared, Current: Boolean ): Boolean;
+  TEnumProjects = function ( Data: Pointer; Name: AnsiString; ID: Cardinal ): Boolean;
+  TEnumFolders = function ( Data: Pointer; Name, TCPath, LocalFolder: AnsiString; ID, ParentID: Cardinal; FolderCount, FileCount: Integer ): Boolean;
+  TEnumFiles = function ( Data: Pointer; Name, LocalPath, LockedBy: AnsiString; ID, ParentID, AncestorID: Cardinal; Modified, Timestamp, CompressedSize, RevisionCount, ShareCount, Status: Integer; IsVirtual, Frozen: Boolean ): Boolean;
+  TEnumLockedFiles = function ( Data: Pointer; Name, LockPath: AnsiString; ID, ParentID, LockedRevID: Cardinal; Modified, RevisionCount, Status: Integer ): Boolean;
+  TEnumNewFiles = function ( Data: Pointer; FullPath: AnsiString; ProjectID, FolderID: Cardinal ): Boolean;
+  TEnumRevisions = function ( Data: Pointer; Name, Author, Comments, LockedBy: AnsiString; ID, ParentID: Cardinal; Modified, Timestamp, CompressedSize, OriginalSize, CRC, VerCount, PromoCount: Integer ): Boolean;
+  TEnumLabels = function ( Data: Pointer; LabelType: Integer; Name, Comments: AnsiString; ID: Cardinal; Timestamp: Integer ): Boolean;
   // Addins
   TEnumRepository = function ( Context, Data: Pointer; ID: Cardinal; pName: PChar; ObjType: Integer ): Boolean; stdcall;
   // General
@@ -135,10 +135,10 @@
   TMergeFeedbackProc = function ( pText: PChar; IsError: Boolean ): Boolean; stdcall;
 
   TCheckOutInfo = record
-    Comments: PChar;
-    Extra: PChar;
-    Revision: PChar;
-    LocalPath: PChar;
+    Comments: PAnsiChar;
+    Extra: PAnsiChar;
+    Revision: PAnsiChar;
+    LocalPath: PAnsiChar;
     VersionID: Cardinal;
     AssignVersionID: Cardinal;
     Overwrite: Boolean;
@@ -156,15 +156,15 @@
   PCheckInInfo = ^TCheckInInfo;
 
   // Internal
-  TIntEnumConnections = function ( Context, Data: Pointer; pName, pDescription, pHost: PChar; Port: Integer; Current: Boolean ): Boolean; stdcall;
-  TIntEnumViews = function ( Context, Data: Pointer; pName, pDescription: PChar; ID: Cardinal; Shared, Current: Boolean ): Boolean; stdcall;
-  TIntEnumProjects = function ( Context, Data: Pointer; pName: PChar; ID: Cardinal ): Boolean; stdcall;
-  TIntEnumFolders = function ( Context, Data: Pointer; pName, pTCPath, pLocalFolder: PChar; ID, ParentID: Cardinal; FolderCount, FileCount: Integer ): Boolean; stdcall;
-  TIntEnumFiles = function ( Context, Data: Pointer; pName, pLocalPath, pLockedBy: PChar; ID, ParentID, AncestorID: Cardinal; Modified, Timestamp, CompressedSize, RevisionCount, ShareCount, Status: Integer; IsVirtual, Frozen: Boolean ): Boolean; stdcall;
-  TIntEnumLockedFiles = function ( Context, Data: Pointer; pName, pLockPath: PChar; ID, ParentID, LockedRevID: Cardinal; Modified, RevisionCount, Status: Integer ): Boolean; stdcall;
-  TIntEnumNewFiles = function ( Context, Data: Pointer; pFullPath: PChar; ProjectID, FolderID: Cardinal ): Boolean; stdcall;
-  TIntEnumRevisions = function ( Context, Data: Pointer; pName, pAuthor, pComments, pLockedBy: PChar; ID, ParentID: Cardinal; Modified, Timestamp, CompressedSize, OriginalSize, CRC, VerCount, PromoCount: Integer ): Boolean; stdcall;
-  TIntEnumLabels = function ( Context, Data: Pointer; LabelType: Integer; pName, pComments: PChar; ID: Cardinal; Timestamp: Integer ): Boolean; stdcall;
+  TIntEnumConnections = function ( Context, Data: Pointer; pName, pDescription, pHost: PAnsiChar; Port: Integer; Current: Boolean ): Boolean; stdcall;
+  TIntEnumViews = function ( Context, Data: Pointer; pName, pDescription: PAnsiChar; ID: Cardinal; Shared, Current: Boolean ): Boolean; stdcall;
+  TIntEnumProjects = function ( Context, Data: Pointer; pName: PAnsiChar; ID: Cardinal ): Boolean; stdcall;
+  TIntEnumFolders = function ( Context, Data: Pointer; pName, pTCPath, pLocalFolder: PAnsiChar; ID, ParentID: Cardinal; FolderCount, FileCount: Integer ): Boolean; stdcall;
+  TIntEnumFiles = function ( Context, Data: Pointer; pName, pLocalPath, pLockedBy: PAnsiChar; ID, ParentID, AncestorID: Cardinal; Modified, Timestamp, CompressedSize, RevisionCount, ShareCount, Status: Integer; IsVirtual, Frozen: Boolean ): Boolean; stdcall;
+  TIntEnumLockedFiles = function ( Context, Data: Pointer; pName, pLockPath: PAnsiChar; ID, ParentID, LockedRevID: Cardinal; Modified, RevisionCount, Status: Integer ): Boolean; stdcall;
+  TIntEnumNewFiles = function ( Context, Data: Pointer; pFullPath: PAnsiChar; ProjectID, FolderID: Cardinal ): Boolean; stdcall;
+  TIntEnumRevisions = function ( Context, Data: Pointer; pName, pAuthor, pComments, pLockedBy: PAnsiChar; ID, ParentID: Cardinal; Modified, Timestamp, CompressedSize, OriginalSize, CRC, VerCount, PromoCount: Integer ): Boolean; stdcall;
+  TIntEnumLabels = function ( Context, Data: Pointer; LabelType: Integer; pName, pComments: PAnsiChar; ID: Cardinal; Timestamp: Integer ): Boolean; stdcall;
 
 
   // Toolbars and Menus
diff -Naur -x'*.dcu' -x__history TCVcsApi-orig/TCVcsUtils.pas TCVcsApi/TCVcsUtils.pas
--- TCVcsApi-orig/TCVcsUtils.pas	2009-06-11 13:58:06.898456300 +0200
+++ TCVcsApi/TCVcsUtils.pas	2009-06-09 10:38:56.000000000 +0200
@@ -121,7 +121,7 @@
 function ListToPChar( Items: TStrings; const Chars: PChar; const BuffSize: Integer ): Integer;
 procedure PCharToList( Chars: PChar; const Items: TStrings );
 procedure SccListToPChar( Units: TStrings; const Chars: PChar );
-procedure SccGetListFromChars( PUnits: PChar; const Units: TStrings );
+procedure SccGetListFromChars( PUnits: PAnsiChar; const Units: TStrings );
 function GetCommandlineParameter( Param: String ): String;
 function HasCommandLineParameter( Param: String ): Boolean;
 {$IFNDEF LINUX}
@@ -262,7 +262,7 @@
 end;
 
 // Hack
-procedure AnsiFromChar(pIn: PChar; const pOut: PAnsiChar);
+procedure AnsiFromChar(pIn: PAnsiChar; const pOut: PAnsiChar);
 var
   i, j, Len: Integer;
   pTemp: PByteArray;
@@ -295,7 +295,7 @@
     StrCopy(pOut, PAnsiChar(pIn));
 end;
 
-procedure SccGetListFromChars( PUnits: PChar; const Units: TStrings );
+procedure SccGetListFromChars( PUnits: PAnsiChar; const Units: TStrings );
 var
   Str: String;
   i: LongInt;