＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／　
　ミ；ﾟДﾟ彡＜　　つくってみたけど
　 ﾐ つ⑩) 　＼　
～ﾐ　　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　　Ｕ Ｕ 　　
なんか、
[Form1.Caption: '今は1:43:15なので2:00:00から3:00:00の間です']
こんなふうな意味わからん表示になるんだけど
なんでだろ～～なんでだろ～～(ﾃﾂ&ﾄﾓ)

procedure TForm1.Button1Click(Sender: TObject);
var
　i: Integer;
　StartTime, EndTime: TTime;
begin
　for i:=0 to 23 do
　begin
　　StartTime := EncodeTime(i , 0, 0, 0);
　　EndTime := EncodeTime(i+1, 0, 0, 0);

　　if (CompareTime(StartTime, Time) = GreaterThanValue)
　　　and (CompareTime(Time, EndTime) = LessThanValue) then
　　begin
　　　Form1.Caption :=
　　　　'今は'+TimeToStr(Time)+'なので'+
　　　　TimeToStr(StartTime)+'から'+
　　　　TimeToStr(EndTime)+'の間です';

　　　Break;
　　end;
　end;
end;

なんか、どこか間違ったかな？
D6UP1です。