if anweisung

[cell]

hi hab ein problem mit der if anweisung

Delphi-Quellcode:

begin
     with DataModule1 do
     begin
       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,'', '');
       Query.Open;
       while not Query.Eof do
       begin
            agewvo:=(Query.Fields[0].AsString);
            agewvu:=(Query.Fields[1].AsString);
            agewho:=(Query.Fields[2].AsString);
            agewhu:=(Query.Fields[3].AsString);
            egewvo:=(Query.Fields[4].AsString);
            egewvu:=(Query.Fields[5].AsString);
            egewho:=(Query.Fields[6].AsString);
            egewhu:=(Query.Fields[7].AsString);

       Query.SQL.Clear;
       Query.SQL.Text:= selectsql('Anfangsgewicht_Scheibe,Endgewicht_Scheibe','Friktionstest','Testnummer='+frmtestauswahl.cbotestnummer.Text,'','');
       Query.Open;
       
            agewscheibe:=(Query.Fields[0].AsString);
            egewscheibe:=(Query.Fields[1].AsString);

       if (agewvo ='') Or (agewvu ='') Or (agewho ='') Or (agewhu ='') Or (egewvo ='') Or (egewvu ='') Or (egewho ='') Or (egewhu ='') Or (agewscheibe='') Or (egewscheibe='')  then
       begin
            Showmessage('Es gibt keine Werte für diese Testnummer');
            //ShowMessage(Query.SQL.Text);
            close;
       end
       else
       lblbelagverschleiss.Caption :=FloatToStr((StrToFloat(agewvo) + StrToFloat(agewvu) + StrToFloat(agewho) + StrToFloat(agewhu)) - (StrToFloat(egewvo) + StrToFloat(egewvu) + StrToFloat(egewho) + StrToFloat(egewhu)));
       lblscheibeverschleiss.Caption:=FloatToStr(StrToFloat(agewscheibe)+StrToFloat(egewscheibe));
            Query.Next;
            Query.Close;
       end;
     end;

auch wenn die werte = '' sind geht er mit in den satz mit lblscheibenverschleiß hinein und sagt mir eine Fehler meldung dass '' kein gültiger float wert ist
plz help