Fórum O que aconteceu com o Delphi 7 ? #228919

var
Present:TDateTime;
Hour, Min, Sec, Msec: Word;
Begin
Present:= Now;
DecodeTime(Present, Hour, Min, Sec,Msec);
if (Hour > 00) and (Hour < 12) then
begin
Caption := ´Bom Dia´;
end else
if (Hour > 12) and (Hour < 19) then
begin
Caption := ´Boa tarde´;
end else
if (Hour > 19) and (Hour < 24) then
begin
Caption := ´Boa Noite´;