StrinGrid nach Datum sortieren

[dopeline]

Hallöle!
ich hab ja auch schon eine möglichkeit gefunden! doch, wenn man in der zu sortierenden spalte in einer zelle kein datum eingegeben hat, bricht er das programm ab und sagt " '' ist kein gültiges Datum"
hier ist erst mal der code:

Delphi-Quellcode:

procedure TFormHaupt.Geburtstag1Click(Sender: TObject);
var i:Integer;
    tmpDatum: TDate;
    tmpString: String;
    j,m,t: Word;
begin

  for I := 1 to (Stringgrid1.RowCount-1) do begin
        if StringGrid1.Cells[8,i] = '' then break;
        tmpDatum := StrToDate(StringGrid1.Cells[8,i]);
        tmpString := FormatDateTime('YYYYMMdd',tmpDatum);
        Listbox1.Items.Add(tmpString);
  end;
   begin
  {Sortiere die Liste}
  for I := 1 to (Stringgrid1.RowCount) do StringGrid1.Cells[8,i] := '';

  Listbox1.sorted := true;

  {Zurückschreiben der Werte in das Stringgrid}
  for I := 1 to (Listbox1.Items.Count) do begin
        j := StrToInt(copy(Listbox1.Items[i-1],1,4));
        m := StrToInt(copy(Listbox1.Items[i-1],5,2));
        t := StrToInt(copy(Listbox1.Items[i-1],7,2));
        tmpDatum := Encodedate(j,m,t);
        StringGrid1.Cells[8,i] := DateToStr(tmpDatum);
  end;
end;

wie sage ich, dass er die leeren felder "nicht beachteb" soll?

Güße, dopeline

PS: Hier habe ich das mit dem Sortieren her