{
StrToTime example
This example uses an edit box and a button on a form. When the user enters a time in 
the edit box in the HH:MM:SS format, the string entered is converted to a TDateTime 
value. A message then appears that says "Good Morning" or "Good Afternoon", depending 
on whether the time entered was in the morning or afternoon.
} 
procedure TForm1.Button1Click(Sender: TObject);
var
  ATime: TDateTime;
begin
  ATime := StrToTime(Edit1.Text);
  if ATime < 0.50 then
    ShowMessage('Good Morning')
  else
    ShowMessage('Good Afternoon');
end; 
