아래와 같은 코드를 BCB로 바꾸려고 하는데 도대체 어떻게 해야 하나요?

코드의 내용으로는 TreeView에서 디렉토리를 선택하면 TSearchRec 구조체를 써서 Name과 Time의 정보를 읽어와 StatusBar에 뿌려주는 내용인데요...

  if Assigned(TreeView.Selected.Data) then
    with TSearchRec(TreeView.Selected.Data^) do
      MainForm.StatusBar1.Panels[2].Text := format('[%s]: %s', [Name,
        DateTimeToStr(FileDateToDateTime(Time))]);

간단하게 다음과 같이 했더니 안되는군요. (선택된 데이터로 FindFirst를 한 번 호출해야하나???)
  
if (TreeView->Selected->Data)
{
      TSearchRec * sr = (TSearchRec *)TreeView->Selected->Data;
      FormMain->StatusBar1->Panels->Items[2]->Text.sprintf("[%s]: %s", sr->Name, DateTimeToStr(FileDateToDateTime(sr->Time)));
}

염치불구하고 한가지 더 여쭙겠습니다.
아래와 같은 코드가 있는데 BCB에서는 LongRec라는 함수가 없데요. 분명 다른 방법이 있으니깐 그 함수가 없을텐데 초보인지라 간단히 생각나는 방법이 없네요.

  function TimeStr(const FileTime: TFileTime): string;
  var
    LocalFileTime: TFileTime;
    Time: Cardinal;
  begin
    FileTimeToLocalFileTime(FileTime, LocalFileTime);
    FileTimeToDosDateTime(LocalFileTime, LongRec(Time).Hi, LongRec(Time).Lo);
    Result := FormatDateTime('yy-mm-dd hh:nn:ss', FileDateToDateTime(Time));
  end;

낑낑거리다가 안돼서 올립니다.
그럼, 모두 즐겁게 시작하는 월요일 되세요.