1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

procedure TForm1.StartClick(Sender: TObject);
  var VonDatum, BisDatum, HilfDatum1, HilfDatum2, Suche, Ausgabe :String;
  var i, e :Integer;
  var TempDate :TDateTime;
  var f :Textfile;
  var StartOK :Bool;

  var A ... :String;

  var ICPMNC: array[1..20] of String;
  var DIA: array[1..20] of String;


begin


 StartOK := FALSE;

// Prüfung ob Von Datumseingabe OK
 try
   begin
     TempDate := StrToDate(EVonDat.Text);
     VonDatum := EVonDat.Text;
     StartOK := TRUE;
     EVonDat.Color := clWindow;
   end;
 except
    on E: EConvertError do
      begin
        EVonDat.Text := '';
        StartOK := FALSE;
        EVonDat.Color := clRed;
        ShowMessage('Bitte geben Sie ein korrektes Startdatum ein (TT.MM.YYYY)');
      end;
 end;

// Prüfung ob Bis Datumseingabe OK
 try
   begin
//     TempDate := StrToDate(EBisDat.Text);
     BisDatum := EBisDat.Text;
     StartOK := TRUE;
     EBisDat.Color := clWindow;
   end;
 except
    On E: EConvertError do
      begin
        EBisDat.Text := '';
        StartOK := FALSE;
        EBisDat.Color := clRed;
        ShowMessage('Bitte geben Sie ein korrektes Endedatum ein (TT.MM.YYYY)');
      end;
 end;
.....

 if StartOK = TRUE then
 begin
   T_DB.Open;
   ....