Hi
Your problem is the consequence of how ReadLn(Longint) works. When you
enter 'g' + Enter, ReadLn reads 'g', then ReadLn raises runtime error
(this causes EInOutError exception), but Enter is still left unread (it
stays in internal Input buffer). That's why the next ReadLn ("ReadLn
(tmpLabel
having some problems with exception handling that have me pretty
confused i'll include below the entire procedure where the
exception handling occurs ...
Procedure procAddNewAlbum;
Var
tmpAlbumName : AnsiString;
tmpAlbumID : Longint;
tmpNumTra