Listview de döngü sonrasında messagebox verme

[Serhat]

İyi Akşamlar, ListView deki seçili olan kayıtları farklı bir tarihe kopyalama işlemini yapıyorum, fakat ListView de seçili kayıt olmasa bile döngü devam ettiği için ListView deki her kayıtta MessageBox ekrana geliyor bu işlemi döngü bittikten sonra nasıl verdirebilirim?

Kod: Tümünü seç

procedure TForm3.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  if Form1.ListView1.Items.Count > 0 then
    try
      with Form1.ListView1 do
      begin
        for i := Items.Count - 1 downto 0 do
        begin
          if Items[i].Checked then
          begin
            with Form1.Listem do
            begin
              Close;
              SQL.Clear;
              SQL.Add('Insert Into LISTE (SIRANO, START)');
              SQL.Add(' Values (:SRN, :STR)');
              ParamByName('SRN').AsString := Items[i].Caption;
              ParamByName('STR').AsString := Items[i].SubItems[0];
              ExecSQL;
            end
          end
          else
          begin
            Application.MessageBox('Kopyalama İşlemi Yapılamadı!', 'Uyarı!',
              MB_Ok or MB_ICONQUESTION);
          end;
        end;
      end;
    except
    end;
end;

[mrmarman]

Sorunun cevabını kendin vermişsin zaten.
Mesajı döngüde daha içeri taşı.

Kod: Tümünü seç

         if Items[i].Checked then

bloğuna taşırsan sadece seçili kayıtlarda alırsın. Ama senin mesajın işlem yapılamadı olduğuna göre buna ilişkin bir olumsuzluk durumu ve/veya TryExcept bloğuna vs. ihtiyacın yok mudur ?