//******************************************************************************
// FILE SIZE GET
//******************************************************************************
function TForm1.GetSizeOfFile(const FileName : String) : Integer;
var
  hFile : LongWord;
begin
  hFile  := FileOpen(FileName, fmOpenRead);
  Result := GetFileSize(hFile, nil);
  FileClose(hFile);
end;

//******************************************************************************
// BOTTON CLICK
//******************************************************************************
procedure TForm1.Button1Click(Sender: TObject);
begin

if OpenDialog1.Execute then
  begin
    Label1.Caption := IntToStr(GetSizeOfFile(OpenDialog1.FileName));        <=== 파일 사이즈
    Label2.Caption := ExtractFileDir(OpenDialog1.FileName);          <== 파일 폴더
    Label3.Caption := ExtractFileNAme(OpenDialog1.FileName);          <=== 파일 이름
  end;
end;

이렇게 하면될겁니다.