Fórum Trazer mais de um dado #413941

Bom dia pessoal.

Bom, estou com um problema para trazer todos os resultados do banco para minhas variaveis no delphi, sei que não é desse jeito, mas eu fiz assim.

Criei uma procedure que trouxesse a quantidade de informações para depois atribuir o contador à uma variável e criar um while para receber as informações nas seguintes variaveis:

procedure TDadosFtErpAgruFC.SetProperties;
VAR
CONT : Integer;
begin
cont := 1;

while cont <= FtTotalAgrupCli do
begin
Ft := quFt.FieldByName(FT).AsString;
FtSimples := quFt.FieldByName(FT_SIADNE).AsString;
CodigoCliente := quFt.FieldByName(COD_CLI).AsInteger;
NomeCliente := quFt.FieldByName(GUERRA_CLI).AsString;
ClienteFull := quFt.FieldByName(CLIENTE_FULL).AsString;

cont := cont + 1;
end;
end;

Não está funcionando, ele na terceira variavel (Codigo Cliente) porque é a partir deste campo que as informações são diferentes.

Como conseguir trazer todas as informações nestas variáveis?

Att,