Fórum Como verificar se uma Lista está vazia (TStringList)? #268300

Boa Tarde Pessoal

Estou com dois erros na rotina abaixo e conto com a ajuda de vocês. Depois de montar uma lista com uma sequencia
de numeros de cheques eu quero que esta lista seja atribuida a um componente COMBOBOX que tenho na tela.
O primeiro erro ocorre porque eu tenho que verificar se a lista não está vazia antes de fazer a atribuição
´DBComboBox2.Items := Lista;´. Como devo fazer para verificar se a lista não está vazia?

O segundo erro ocorre na linha em que adiciono o número do cheque à lista: ´Lista.Add(FormatCurr(´0000000000´, I));´
Sempre que para nesta linha ocorre o erro: ´access violation at address 004E93CE´ e confesso que não entendi porque. Achi que devo usar o evento CREATE para criar a lista certo?

Muito obrigado por qualquer ajuda e abaixo segue a rotina:

procedure TForm_Despesas_Diarias.DBComboBox2Enter(Sender: TObject);
var SeqIni: Integer;
SeqFin: Integer;
I: Integer;
NumChq: String;
Lista: TStringList;
begin
with DataMod.ADOTable_Taloes_Cheques DO
begin
first;
while not eof do
Begin
if (DataMod.ADOTable_Taloes_ChequesChq_Liberado.Value) and
(not DataMod.ADOTable_Taloes_ChequesChq_Encerrado.Value) then
begin
SeqINI := DataMod.ADOTable_Taloes_ChequesChq_Seq_Ini.Asinteger;
SeqFIN := DataMod.ADOTable_Taloes_ChequesChq_Seq_Fin.Asinteger;
For I := SeqINI to SeqFIN do
Lista.Add(FormatCurr(´0000000000´, I));
end;
end;
DBComboBox2.Items := Lista;
end;
end;