Fórum Operation Not Suported delphi #583714

Pessoal, Boa tarde.

Alguem pode me ajudar?

Tenho este codigo abaixo , mas nao consigo identificar o erro., sempre quando executo ele , me dá um erro Operation Not suported.
Alguem sabe me dizer , por favor onde está o erro ?

begin
with QRY2 do begin
Clipboard.AsText:=sql.Text;
CLOSE;
sql.Clear;
sql.Text :='select A.codigoromaneio,A.estadoromaneio,B.codigotarefa,b.datahistorico,c.descricaotarefa '
+ 'from romaneio A inner join coletormensagem B on A.codigoromaneio = B.codigoromaneio '
+ 'inner join tarefa c on b.codigotarefa = c.codigotarefa where estadoromaneio='+ ' 4' + ' group by A.codigoromaneio, A.estadoromaneio, B.codigotarefa,C.descricaotarefa, B.datahistorico';

open;
First; // Primeiro Registro
if RecordCount>0 then
begin
Posição_Leitura:=0;
if not (Posição_Leitura=4) then
repeat
Posição_Leitura:=Posição_Leitura+1;

//SE ESTIVER NO PRIMEIRO REGISTRO
if Posição_Leitura=1 then
BEGIN
LB_CODIGO_ROMANEIO_1.CAPTION:=IntToStr(FieldByName('codigoromaneio').AsInteger);
LB_DESCRICAOTAREFA_1.CAPTION:=FieldByName('DESCRICAOTAREFA').ASSTRING;

IF FieldByName('DATAHISTORICO').ASSTRING<>'' THEN
BEGIN
LB_DATAHISTORICO_1.CAPTION:=DateToStr(FieldByName('DATAHISTORICO').AsDateTime);
END
ELSE
BEGIN
LB_DATAHISTORICO_1.CAPTION:=' - ';
END;


END;


//SE ESTIVER NO SEGUNDO REGISTRO

if Posição_Leitura=2 then
BEGIN
LB_CODIGO_ROMANEIO_2.CAPTION:=IntToStr(FieldByName('codigoromaneio').AsInteger);
LB_DESCRICAOTAREFA_2.CAPTION:=FieldByName('DESCRICAOTAREFA').ASSTRING;

IF FieldByName('DATAHISTORICO').ASSTRING<>'' THEN
BEGIN
LB_DATAHISTORICO_2.CAPTION:=DateToStr(FieldByName('DATAHISTORICO').AsDateTime);
END
ELSE
BEGIN
LB_DATAHISTORICO_2.CAPTION:=' - ';
END;


END;


//SE ESTIVER NO TERCEIRO REGISTRO

if Posição_Leitura=3 then
BEGIN
LB_CODIGO_ROMANEIO_3.CAPTION:=IntToStr(FieldByName('codigoromaneio').AsInteger);
LB_DESCRICAOTAREFA_3.CAPTION:=FieldByName('DESCRICAOTAREFA').ASSTRING;

IF FieldByName('DATAHISTORICO').ASSTRING<>'' THEN
BEGIN
LB_DATAHISTORICO_3.CAPTION:=DateToStr(FieldByName('DATAHISTORICO').AsDateTime);
END
ELSE
BEGIN
LB_DATAHISTORICO_3.CAPTION:=' - ';
END;


END;



//SE ESTIVER NO QUARTO REGISTRO
if Posição_Leitura=4 then
BEGIN
LB_CODIGO_ROMANEIO_4.CAPTION:=IntToStr(FieldByName('codigoromaneio').AsInteger);
LB_DESCRICAOTAREFA_4.CAPTION:=FieldByName('DESCRICAOTAREFA').ASSTRING;

IF FieldByName('DATAHISTORICO').ASSTRING<>'' THEN
BEGIN
LB_DATAHISTORICO_4.CAPTION:=DateToStr(FieldByName('DATAHISTORICO').AsDateTime);
END
ELSE
BEGIN
LB_DATAHISTORICO_4.CAPTION:=' - ';
END;




END;

NEXT;

until (Posição_Leitura=4);
end;
end;

end;
end;