Einen Code optimieren

[LingNeu]

Hallo Delphifans,
habe eine Datumsabfrage mit ca. 100 Datumswerten. Wie kann man sowas noch optimieren.
Mit einer Case-Anweisung bring ich das einfach nicht zum Laufen. Dachte mit Case wäre es evtl. übersichtlicher.
Vielen Dank für jeden Hinweis
LingNeu

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
//
if strtodate(edit1.Text) > strtodate('01.01.2007') then
   begin
   label2.Caption := '1.Zeitbereich';
   end;
if strtodate(edit1.Text) > strtodate('01.02.2007') then
   begin
   label2.Caption := '2.Zeitbereich';
   end;
if strtodate(edit1.Text) > strtodate('01.03.2007') then
   begin
   label2.Caption := '3.Zeitbereich';
   end;
end;