设定Alignment=taRightJustify,然后动态加换行符,比如:
procedure TForm1.Button1Click(Sender: TObject);
begin
  StaticText1.Caption := StringOfChar(#13,n-1) + StaticText1.Caption; //假设有n行
end;—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
             毁誉由人,望天上云卷云舒,聚散任风。';
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————