Como converter o caminho relativo de um arquivo em caminho absoluto

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  arquivo, completo: string;
begin
  // nome do arquivo relativo ao executável da aplicação
  arquivo := 'arquivo.txt';

  // vamos obter o caminho completo do arquivo
  completo := ExpandFileName(arquivo);

  // exibe o resultado
  ShowMessage('O caminho e nome completo de ' +
    arquivo + ' é ' + completo);
end;