Восстановление относительного пути

void __fastcall TConDesForm::BtnViewDataSheetClick(TObject *Sender)
{
// Создаем и запускаем новый поток
   TMemoryStream* M1 = new TMemoryStream();
// Создаем и запускаем новый поток, в который будем читать данные из ячейки
   TStream *B1=ADOTableConDes->CreateBlobStream(ADOTableConDes->FieldByName("DtSh"), bmRead);
// Копируем в поток "М1" данные из потока "В1"
   M1->CopyFrom(B1, B1->Size);
// Данные из потока "М1" записываем во временный файл
   M1->SaveToFile("Template.PDF");
// Закрываем оба потока
   delete B1;
   delete M1;
// Запускаем дочерний процесс
   spawnlp(P_WAIT, "SumatraPDFPortable\\SumatraPDFPortable", "SumatraPDFPortable\\SumatraPDFPortable", "Template.PDF", NULL);
// Теперь уничтожаем временный файл
   DeleteFile("Template.PDF");
}

// Запускаем дочерний процесс
   spawnlp(P_WAIT, "SumatraPDFPortable/SumatraPDFPortable.exe", "SumatraPDFPortable/SumatraPDFPortable", "Template.PDF", NULL);

AnsiString sPathToApp = IncludeTrailingPathDelimiter(ExtractFilePath(Application->ExeName));
// Запускаем дочерний процесс
spawnlp(P_WAIT, sPathToApp+"SumatraPDFPortable", sPathToApp+"SumatraPDFPortable", "Template.PDF", NULL);

AnsiString sPathToApp = IncludeTrailingPathDelimiter(ExtractFilePath(Application->ExeName))
                        +"SumatraPDFPortable";
// Запускаем дочерний процесс
spawnlp(P_WAIT, sPathToApp, sPathToApp, "Template.PDF", NULL);

ExtractFilePath(Application->ExeName)

ShowMessage(ExtractFilePath(Application->ExeName));

ShowMessage(IncludeTrailingPathDelimiter(ExtractFilePath(Application->ExeName)));