milliseconds and delay until

[Thomas Bruns <newsgroup@donbruno.de>]

Hello

how can I handle the until delay statement, too do this: ????


with ADA.Calendar; use ADA.Calendar;

procedure ....

MS : INTEGER; --milliseconds

begin
MS:= INTEGER(FLOAT(seconds(clock)) * 1000);

MS := MS + 100;

delay until MS; ---???? it is wrong :-( it must be a time type :-( but I
        -- need the clock from a fixed time and add some milliseconds... 
--and then the until delay statement....How can I handle this???

end;


-- 
PS:
HW: ASUS P4PE, PIV 2.4 GHz, 768 MB RAM, Geforce 4200, 
SW: Suse 8.2, Kernel 2.4.20, KDE 3.1.2, QT3.1.2, KDEVELOP 2.1.5