Время на форме

uses
 System,
 System.Windows.Forms,
 System.Drawing;
 
var
  mainform: form;
  time: Datetime;
 
 
begin
  mainform := new Form;
  mainform.size := new size(300, 300);
  mainform.StartPosition := FormStartPosition.CenterScreen;
  mainform.BackColor := System.Drawing.Color.Purple;
  application.Run(mainform);
end.

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
 
uses
 System, System.Windows.Forms, System.Drawing;
 
var
  mainform: form;
  sf: StringFormat;
 
 
procedure tmrTick(sender: Object; e: System.Timers.ElapsedEventArgs);
begin
  var rect := new RectangleF(0, 0, mainform.Width, mainform.Height);
  with mainform.CreateGraphics() do
  begin
    FillRectangle(new SolidBrush(Color.Purple), rect);
    DrawString(DateTime.Now.ToString('HH:mm:ss'), new Font('Tahoma', 20), new SolidBrush(Color.Red), rect, sf);
  end;
end;
 
begin
  sf := new StringFormat();
  sf.LineAlignment := StringAlignment.Center;
  sf.Alignment := StringAlignment.Center;
   
  mainform := new Form;
  mainform.size := new size(300, 300);
  mainform.StartPosition := FormStartPosition.CenterScreen;
  mainform.BackColor := System.Drawing.Color.Purple;
  
  var t := new System.Timers.Timer;
  t.Elapsed += tmrTick;
  t.Interval := 1000;
  t.Enabled := true;
 
  application.Run(mainform);
end.