procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
SpeedButton1.Down:=True;
RichEdit1.Paragraph.Alignment:=taLeftJustify;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
SpeedButton2.Down:=True;
RichEdit1.Paragraph.Alignment:=taCenter;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
SpeedButton3.Down:=True;
RichEdit1.Paragraph.Alignment:=taRightJustify;
end;