Fórum Erro ...Query - Loop ... First/EOF/Next ? #342037

MyForm.MyLabel.Caption:=qTransportaFormula.FieldByName(´descricao´).AsString;

//começando a filtrar as condicoes das formulas ativas
   qTransportaFormula.sql.clear;
   qTransportaFormula.sql.add(´select * from formulas´);
   qTransportaFormula.sql.add(´WHERE (marcar=true and quantidade=True)´); //condiçao para abrir form e mostrar quantidade
   qTransportaFormula.open;
   qTransportaFormula.First;
   while not qTransportaFormula.Eof do
   begin
     //--Exibe o form
     MyForm.ShowModal;
     MyForm.MyLabel.Caption:=qTransportaFormula.FieldByName(´descricao´).AsString;
     qTransportaFormula.Next;
   end;   

procedure TForm1.Button3Click(Sender: TObject);
var
MyForm1 : TForm; //variavel para criar classe de um form em tempo de execuçao
MyLabel1 : TLabel; //variavel para criar Label em tempo de execucao Classe TLabel
begin
jvDBGrid1.refresh; // atualizar o grid antes de começar
//começando a filtrar as condicoes das formulas ativas
   qTransportaFormula.sql.clear;
   qTransportaFormula.sql.add(´select * from formulas´);
   qTransportaFormula.sql.add(´WHERE (marcar=true and quantidade=True)´); //condiçao para abrir form e mostrar quantidade
   qTransportaFormula.open;
   qTransportaFormula.First;
   while not qTransportaFormula.Eof do
   begin
     //--Exibe o form
     MyForm.ShowModal;
     MyForm.MyLabel.Caption:=qTransportaFormula.FieldByName(´descricao´).AsString;
     qTransportaFormula.Next;
   end;   
//-----------------------------
//recebebdo o salario do funcionario na variavel
//selecionado em um cluque no grid e armazenado na variavel
vSalario:=ibquery1.fieldbyname(´salario´).asString;
//começando a filtrar as condicoes das formulas ativas
qTransportaFormula.sql.clear;
qTransportaFormula.sql.add(´select * from formulas´);
qTransportaFormula.sql.add(´WHERE id_gerarformula= :iD_Sal and marcar = True´); //condiçao para transportar somente true e a empresa
qTransportaFormula.open;
M.Clear; //limpar o memo
qTransportaFormula.First;
while not qTransportaFormula.Eof do
begin
//converte tds "pontos" em "virgulas"
vsalario := stringreplace(IBQUERY1.FIELDBYNAME(´SALARIO´).ASSTRING, ´.´,´.´, [rfReplaceAll]);
//passa o valor para variavel
vsalario := IBQUERY1.FIELDBYNAME(´SALARIO´).ASSTRING;
//converte tds "virgulas" em "pontos"
vsalario := stringreplace(vsalario,´,´,´.´, [rfReplaceAll]);
{passando os comando que estao como True no dbgrid para o memo + variavel de memoria}
m.lines.add(vSalario+qTransportaFormula.fieldbyname(´formula´).asString);
qTransportaFormula.Next;
end; 

end;