mahlzeit,
natürlich führt
if ws[1] = '' then ShowMessage('S');
zu einer zugriffsverletzung. wenn ws leer ist (ws = '') kannst du auch nicht auf ws[1] zugreigen. deinen code würde ich wenn dann ändern zu:
Delphi-Quellcode:
if Length(ws) > 0 then
ShowMessage('S');
in den TntUtils gibt es ein wide-version zu length.