You can use the Win32_Find_Data member of TSearchRec to extract this information. Example:

procedure TForm .Button Click(Sender: TObject);
var
  SearchRec : TSearchRec;
  Success : integer;
begin
  Success := SysUtils.FindFirst('C:\DownLoad\dial-u~ .htm',
                                faAnyFile,
                                SearchRec);
  if Success = 0 then begin
    ShowMessage(SearchRec.FindData.CFileName);
  end;
  SysUtils.FindClose(SearchRec);
end;