Fórum Erro de data em notebook... #209645

Pessoal, alguém sabe porque equipamentos tipo NOTEBOOK dá tanto problema com data?

Tenho uma rotina que pega a data e hora de arquivos:

Function Data_Hora_Arquivo(Arquivo:PChar):TDateTime;
Var
FHandle: integer;
begin
FHandle := FileOpen(Arquivo,0);
Try
Result := FileDateToDateTime(FileGetDate(FHandle));
Finally
FileClose(FHandle);
End;
End;

E no notebook quando o result vai receber a data e hora do arquivo ´BORLNDMM.DLL´ dá o erro: ´Invalid Date argument encode´.
Tentei dar um LongDateForma := ´dd/mmyyyy´ mas não deu certo...