IsFolder(Folder: String): Boolean;

[[Gunman]]

Aaaaahmmmmm... Ahora pruebo...

(Probando...)

Pues no... Aquí dejo el error y el código:

if FileExists(IncludeTrailingPathDelimiter(CDirLCCB.Text)+
 				Item.Caption) = True then
   begin
 	AssignFile(f, OpenDialog1.FileName);
 	Reset(f);
 	try
 	  Item.SubItems.Add(IntToStr(FileSize(f)));
 	finally
 	  CloseFile(f);
 	end;
   end
   else
 	Item.SubItems.Add('');

El Error: EInOutError (I/O Error 6)