[danielmj]

El código sería este:

Código Delphi [-]
procedure TPrincipal.SpeedButton1Click(Sender: TObject);
var
  hdl: THandle;
  FileData: TWin32FindData;
  Size:int64;

begin
  if FileOpen.Execute then
  Size := 0;
  hdl := FindFirstFile(PChar(FileOpen.FileName), FileData);
  if (hdl <> INVALID_HANDLE_VALUE) then
  begin
    Int64Rec(Size).Lo := FileData.nFileSizeLow;
    Int64Rec(Size).Hi := FileData.nFileSizeHigh;
  end;

  ConvertFileSizes(Size);
  labEdit1.Text:= FileOpen.FileName;
//  label4.Caption:= extractFileName(fileOpen.FileName);
end;

El archivo se abre (desde otro proceso) para lectura. La verdad es que no consigo avanzar mas por culpa de esto y me tiene
Gracias y un saludo.