If-Abfrage, die einen Befehl (Console) überprüfen kann ()

[Nils_13]

Ok, das habe ich bemerkt, der eigentliche Fehler ist beseitigt, aber wenn ich #color(maroon) eintippe, kommt der Fehler falscher Farbwert.

Delphi-Quellcode:

if (copy(line, 1, 6) = '#color(') and (line[length(line)] = ')') then begin
      if copy(line, 7, length(line) - 8) = 'black' then
        Console.color := clBlack
      else if copy(line, 7, length(line) - 8) = 'maroon' then
        Console.color := clMaroon
      else Console.Lines.Add('Falscher Farbwert');
    end else