caminho do exe

type
    procedure conectaDb(); //CTRL + SHIFT + C (cria a procedure)


procedure form1.conectaDb;
var
deretorioDb : string;

begin
  deretorioDb := ExtractFilePath(ParamStr(0)); // (local do exe)
end;
 
para testar cria um showmessage (diretorioDb);
e no oncreat chama o conectaDb

https://www.youtube.com/watch?v=gmqqZBszW3Y