Fehler bei String und Boolean

[cell]

hi habe eine frage bezüglich String und Boolean
ich vertehe nciht warum er mir hier folgende Fehlermeldung ausspuckt!!
Inkomatible Typen String und Boolean
folgendermaßen schaut der Quelltext aus

Delphi-Quellcode:

begin
with DataModule1 do
  begin
       //Query.close;
       Query.SQL.Clear;
       Query.SQL.Text:= selectsql('Anfangsgewicht_Belag_vorne_oben, Anfangsgewicht_Belag_vorne_unten, Anfangsgewicht_Belag_hinten_oben, Anfangsgewicht_Belag_hinten_unten, Endgewicht_Belag_vorne_oben, Endgewicht_Belag_vorne_unten, Endgewicht_Belag_hinten_oben, Endgewicht_Belag_hinten_unten','Friktionstest','Testnummer='+frmtestauswahl.cbotestnummer.Text,'','');
       //ShowMessage(inttostr(length(Query.SQL.Text)));
       Query.Open;
       Query.First;
       while not Query.Eof do
       begin
            if (Query.Fields[0].AsString='') or Query.Fields[1].AsString='') then
               ShowMessage('grr')
               //frmgewichtaendern.txtbelagvo.Text:=0.00
            else
            frmgewichtaendern.txtbelagvo.Text:=(Query.Fields[0].AsString);
            frmgewichtaendern.txtbelagvu.Text:=(Query.Fields[1].AsString);
            Query.Next;
       end;

plz help
thx