How to give up absolute paths?

// Create the property in the form private AppPath: string; // when creating a calculated it procedure TfmMain.FormCreate(Sender: TObject); begin AppPath := ExtractFilePath(Application.ExeName); //... // then use DBName := AppPath + '\\' + 'base.sqlite';