Как сделать строку состояния

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, StdCtrls, Spin, ImgList;
 
type
  TForm1 = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    RichEdit1: TRichEdit;
    ToolButton3: TToolButton;
    ComboBox1: TComboBox;
    SpinEdit1: TSpinEdit;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure StatusBar1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
     private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
If ToolButton1.Down then
RichEdit1.Paragraph.Alignment:=TaLeftJustify;
end;
 
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
If ToolButton2.Down then
RichEdit1.Paragraph.Alignment:=taCenter;
end;
 
procedure TForm1.ToolButton3Click(Sender: TObject);
begin
If ToolButton3.Down then
RichEdit1.Paragraph.Alignment:=TaRightJustify;
 
end;
 
 
procedure TForm1.ComboBox1Change(Sender: TObject);
//var f:Tfont;
begin
RichEdit1.Font.Name:=ComboBox1.Items[ComboBox1.ItemIndex];
//RichEdit1.SelAttributes.Assign(f);
//ComboBox1.Items[ComboBox1.ItemIndex]
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i:=1 to Screen.Fonts.Count do
ComboBox1.items.Add (Screen.Fonts.Strings [i-1]);
ComboBox1.itemIndex:= ComboBox1.Items. IndexOf (RichEdit1.Font.Name);
 
 
end;
 
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
if not (SpinEdit1.Text=' ') then
RichEdit1.Font.Size:=SpinEdit1.Value;
end;
 
procedure TForm1.StatusBar1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var
a:integer;
i:integer;
begin
 
i:=Form1.RichEdit1.CaretPos.y;
a:=Form1.RichEdit1.CaretPos.x;
StatusBar1.Panels.Items[1].Text:='Строка '+IntToStr(i+1)+' Символ '+IntToStr(a);
//Statusbar1.Panels.Items[0].Text:=Application.Hint;
//StatusBar1.Panels.Items[0].Text:='Строка'+IntToStr(i+1);
 
 
end;
 
end.