Lazarus - odpočitavaní

Dobrý den.
Nepomohl by někdo.
Znám jen základy a to s delph ktere jsme měl ve škole pčed 15 lety.

Mam string, kde je zadan čas, třeba 07:30:11

Potřeboval bych udělat odpočitavaní.
Do zadaneho času zbyva ???

var
MyTime: TDateTime;
cas.zadanycas:string;     
begin
cas:= TimeToStr(Time);
zadany cas := '07:30:11';
Label1.caption:= cas;

Zmena predmetu, pôvodne: Layarus. (los)