Fórum Loop ou criar componente em tempo de execução #555672

Boa tarde a todos
Amigos tenho um pequeno projeto onde estou trabalhando com a lib do googleMaps que alias é uma ferramenta fantastica desde de já recomendo a todos pois o poder do GoogleMaps e algo a ser considerado nos dias de hoje.

Minha duvida e o seguinte:
A variável max representa o numero de registros encontrados no clientdataset , até aqui tudo certo. Porem se tenho 40 ou 50 retornos , não posso criar um tanto de componentes desses , alem de ficar dificil a manutenção fica inviável. por isso pergunto a todos; Como farei com esse component :

Eu preciso fazer de um jeito onde se o banco traz 50 retornos preenche 50 componentes e por ai vai.
Obrigado a todos.


DMMAPS.GMDirection1.DirectionsRequest.Origin.Address := QTL;
DMMAPS.GMDirection1.DirectionsRequest.Destination.Address := QTL;

var
max, K, I: Integer;
QTL: string;
begin

// For K := 0 to DMMAPS.ds.DataSet.RecordCount - 1 do
// begin
// if Components[K].tag = 10 then
//
// end;


max := (DMMAPS.ds.DataSet.RecordCount);
for I := 0 to max - 1 do
begin
with DMMAPS.ds.DataSet do
begin
First;
while not Eof do
begin
DMMAPS.GMDirection1.DirectionsRequest.Origin.Address := QTL;
DMMAPS.GMDirection1.DirectionsRequest.Destination.Address := QTL;
QTL := DMMAPS.ds.DataSet.FieldByName('QTL').AsString;
Next;

end;

ListBox1.Items.Add(QTL);
end;

end;
DMMAPS.GMDirection1.Execute;