for I := 0 to Form1.LV1.Items.Count-1 do
          begin
          if Form1.LV1.Items[I].SubItems[5] <> '' then
          S := Form1.LV1.Items[i].SubItems[0];
          if VerificaLVSubItem(Form1.LV2, 0, S) = '' then
          begin
            exit
            end
         else
            pega_dados();
        end;

end;