[PhoeniX]

Код:

 var Path : String;
begin
 FileName:=Path+ListBox1.Items[ListBox1.ItemIndex] ;

Неинициализированная переменная. Линейкой по рукам. Железной.

Исправь все косяки, потом будет смысл искать ошибку.