Function ExpandFileName

Uses Unit SysUtils

A função ExpandFileName retorna uma string com o path do executável mais o nome do arquivo passado como parâmetro, sem verificar se o arquivo existe ou não.

Sintaxe da sua utilização:

ExpandFileName('Nome_do_arquivo');

Ex:

procedure TForm1.BitBtn12Click(Sender: TObject);begin
       ShowMessage(ExpandFileName('Márcio'));end;