Aaaaahmmmmm... Ahora pruebo...
(Probando...)
Pues no... Aquí dejo el error y el código:
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)