Mehrere Parameter übergeben (?)

[zobien123]

Hi

ich bin ziemlich neu in Delphi und hänge grad an einen doofem, wahrscheinlich einfachen, Problem.

Ich habe eine case Anweisung wo entschieden wird, welche Farbe und Formatierung der Text hat, welchen ich später ausgebe:

Code:

ShowLog(s: string; code: TLogCodes);
begin
  case code of
    SubPoint: s := '  - ' + s ;
    Standard: mem_Text.SelAttributes.Color := clWindowText;
    lcError: mem_Text.SelAttributes.Color := clRed;
  end;
end;

Code:

ShowLog('Achtung!', lcError);  //so übergebe ich

Das klappt auch soweit, also zb ich übergebe den Text und er soll Rot sein soll. Aber nicht, wenn der text rot und eingerückt (SubPoint) sein soll. Sprich wenn ich mehrere Argumente über den gleichen Parameter übergeben möchte.
Gibt es irgendwie eine Möglichkeit, dass ich mehrere Sachen über den Parameter übergeben kann?

Ich hoffe ich konnte es einigermaßen erklären und habe nicht zu viel Müll erzählt.