Pasar datos de DbGrid a Variable.

[Camilo]

Buenos dias amigos foreros. quero comentar una duda para ver si los aportes al respecto me ayudan a salir de este bache. De antemano mil gracias por su tiempo y aporte.

Tengo una variable llamada Str. la cual se refleja en un label dentro de un frame. Esto tiene que ver con un aporte de un amigo nuestro para elaborar encuestas con preguntas en runtime.
Pues bien. No he podido hacer que si las preguntas programadas son 10 o 5 o 15 (no importa el numero) estas se muestren en el caption de ese label. lo que tengo luego de muchas vueltas y aun no funciona es lo siguiente.

Código Delphi [-]
with DBGrideh1.DataSource do
  begin
    DataSet.First;
    while not DataSet.Eof do
    begin
        Str := AnsiReplaceText(Fr.lblPregunta.Caption, '%s', DbGridEh1.Columns[1].Field.asString);
          Str := AnsiReplaceText(Str, '%t', DbGridEh1.Columns[1].Field.asString);
           Fr.lblPregunta.Caption := Str;
            DataSet.Next;
    end;