Fórum registros de um campo de uma tabela em um combobox s/ repeti #235807

procedure TForm1.Button1Click(Sender: TObject);
Var
  C : Byte;
  Encontrou : Boolean;
begin
   While(Not(Query.Eof))Do
   Begin
     Encontrou := False;
     For C := 0 To ComboBox1.Items.Count -1 Do
     Begin
       If(QueryLINHA_NOME.AsString = ComboBox1.Text)Then
         Encontrou := True
       Else
         ComboBox1.ItemIndex := ComboBox1.ItemIndex + 1;
     End;
     If(Not(Encontrou))then
       ComboBox1.Items.Add(QueryLINHA_NOME.AsString);
     Query.Next;
   End;
end;