Und wichtig ist vor einer solchen Abfrage auch zu prüfen, ob der String überhaupt lang genug ist. Also z.B.
if (Length(adresse) > 0) and (adresse[1] <> '0') then
bzw. bei vollständiger Auswertung boolscher Ausdrücke (standardmäßig deaktiviert) mit getrennter Abfrage:
Delphi-Quellcode:
if Length(adresse) > 0 then
begin
if adresse[1] <> '0' then
...
end;