JmenoSouboru := ExtractFilePath(Application.ExeName) + 'Data\Data.txt';Ale uvedom si, ze OpenDialog.FileName vrací jmeno souboru vcetne cesty!