Ich würde zuvor prüfen, ob der String leer ist. Bei Leerstrings führt der Zugriff auf ein Zeichen zu einer
AV.
Delphi-Quellcode:
if (lief = '') or (not (lief[1] in ['A'..'Z'])) then
showmessage('Fehlerhafter Lieferant. Bitte prüfen!!');
Der Code setzt den Vorgabewert für die Kurzschlußauswertung ({$B-} oder {$BOOLEVAL OFF}) voraus.
Gruß Hawkeye