DESCOBRIR O TAMANHO DE UM ARQUIVO DO COMPUTADOR - DELPHI

{ A função abaixo retorna o tamanho do arquivo, ou -1
  se o arquivo não for encontrado }

function TFORM1.FileSize(const FileName: string): integer;
var
  SR: TSearchRec;
  I: integer;
begin
  I := FindFirst(FileName, faArchive, SR);
  try
    if I = 0 then
      Result := SR.Size
    else
      Result := -1;
  finally
    FindClose(SR);
  end;
  WTAMANHO_ARQUIVO:=RESULT;
end;

COLOQUE O CODIGO ABAIXO EM UM BOTAO:

   filesize(EDITWPASTA.TEXT+'\'+EDITWARQUIVO.TEXT);
   SHOWMESSAGE(INTTOSTR(WTAMANHO_ARQUIVO));