Boolean Hatası Veriyor Ne Yapmam Lazım Yardım


işte hata kodu
Lutfem Yardım Edin

type of expression must be BOOLEAN


PHP Code:
procedure TForm1.baslatClick(Sender: TObject);
var
Data: TStringList;
begin
While sayac.Text='1'do
IdHTTP1.Host:= 'http://www.*******.com';
Data:= TStringList.Create;
try
Data.Add('username=********');
Data.Add('reqd=0');
idhttp1.post('http://www.******.com/********',Data);
finally
Data.Free;
if
sayac.Text:=kadar.Text;
then
Break;
end;
end;



__________________