Couldn't convert varient of type (NULL) into type (String)

[Svenkan]

Delphi-Quellcode:

  for count := 1 to Pred(Query2.RecordCount) do begin
  hcode:='<tr>'+sLineBreak+'<td width=9% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+Query2.FieldValues['KLASSEN']+'</font></td>'+sLineBreak+'<td width=9% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+Query2.FieldValues['S']+'</font></td>'+sLineBreak+'<td width=9% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+Query2.FieldValues['FUER']+'</font></td>'+sLineBreak+'<td width=9% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+Query2.FieldValues['WER']+'</font></td>'+sLineBreak+'<td width=9% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+Query2.FieldValues['FACH']+'</font></td>'+sLineBreak+'<td width=9% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+Query2.FieldValues['RAUM']+'</font></td>'+sLineBreak+'<td width=37% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+Query2.FieldValues['BEMER_SCH']+'</font></td>'+sLineBreak+'</tr>'+sLineBreak;
   WriteLn(Datei, hcode);
  end;

Bei diesem Aufruf bekomme ich die im Topic genannte Fehlermeldung.
Zudem wird immer für alle Zeile nur der Inhalt der ersten Zeile ausgegeben.
Hat da jemand eine Idee?