процедура TForm1 Button1Click Как да се сравни времето как да се сравни времето Здравейте! процедура TForm1.Button1Click (Sender: TObject); започне, ако времето <01.00 след ShowMessage ( "Рано!"); ако времето> 01.00 след това