Как можно из 1-ой строки(12:02), отделить ":". Чтобы были тест в 1 переменной(12)в другой(02)

Unit
      Unit1;
 
Interface
 
Uses
      SysUtils,
      Classes,
      Controls,
      Forms,
      ExtCtrls,
      StdCtrls;
 
Type
      TForm1 = Class(TForm)
            Label1: TLabel;
            Button1: TButton;
            Timer1: TTimer;                         
            Procedure FormCreate(Sender: TObject);
            Procedure Button1Click(Sender: TObject);
            Procedure Timer1Timer(Sender: TObject);
      Private { Private declarations }
            Time: TDateTime;
      Public { Public declarations }
      End;
 
Var
      Form1: TForm1;
 
Implementation
 
uses DateUtils;
 
{$R *.dfm}
 
Procedure TForm1.FormCreate(Sender: TObject);
Begin                 
Timer1.Enabled:=False;
Timer1.Interval:=275;
Label1.Caption:='...';
End;
 
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Time:=Now();
Label1.Caption:='...';
Timer1.Enabled:=True;
End;
 
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Label1.Caption:='С момента последнего нажатия кнопки прошло: '+FloatToStr(MilliSecondsBetween(Now(), Time)/1000)+' секунд';
End;
 
End.

s:='12:12';
s1:=copy(s,0,2);
s2:=copy(s,pos(':',s)+1,2);