Hallo Emil,
als ich Beitrag #5 schrieb habe ich deinen Beitrag #4 noch nicht gekannt - alles wird klar:
Delphi-Quellcode:
begin
// ...
For IntI := 1 To Length(StrView) do // index läuft ab 1
begin
// StrS := MidStr(StrView, IntI + 1, 1); // nicht nötig
if StrView[IntI] <> ' '
then IntX := IntX + BWidth[Ord(UpCase(StrView[IntI])) - 65]; // nicht () sondern []
else Inc(IntI(5); //Bei Leerstring 5 hinzufügen
// ...
Grüße