Volevo precisare che ho inserito la creazione della StringList all'inzio così.

ValIniziale:=TStringList.Create;