Code verkürzen

[Die Muhkuh]

Hi,

ich hab hier folgenden Code:

Delphi-Quellcode:

if RichEdit.Paragraph.Alignment = paLeftJustify then
    begin
      tbLinks.Checked := true;
      tbLinks2.Checked := true;
    end
    else
    begin
      tbLinks.Checked := false;
      tbLinks2.Checked := false;
    end;

    if RichEdit.Paragraph.Alignment = paCenter then
    begin
      tbZentriert.Checked := true;
      tbZentriert2.Checked := true;
    end
    else
    begin
      tbZentriert.Checked := false;
      tbZentriert2.Checked := false;
    end;

    if RichEdit.Paragraph.Alignment = paRightJustify then
    begin
      tbRechts.Checked := true;
      tbRechts2.Checked := true;
    end
    else
    begin
      tbRechts.Checked := false;
      tbRechts2.Checked := false;
    end;

Wie man unschwer erkennen kann, hab ich nen Button der immer checked := true sein soll, wenn z.B. der Text zentriert ist.

Der Code da oben ist nur ein bisschen lang. Wie könnte man den verkürzen?

Ich habs schon mit:

tbLinks.checked := paLeftJustify in RichEdit.Paragraph.Alignment versucht, aber das klappt leider nicht.