我目前是將一個ListBox中的資料讓使用者點選其中一筆之後 用另一個按鈕將這筆資料加到另一個ListBox的尾端 但是如果使用者沒有點選第一個ListBox的資料就按下按鈕的話 就會出現錯誤訊息 請問我該如何加上程式碼 讓使用者如果沒有點選資料就按下按鈕的話只出現一個提示message之後還能 繼續執行呢? 目前只做到按下message之後就將程式關閉了 麻煩請高手指點指點 謝謝    目前的程式碼: =================================================================== procedure TForm1.Button1Click(Sender: TObject); var   i: Integer; begin   ADOQuery4.Close;   ADOQuery4.SQL.Clear;   ADOQuery4.SQL.Add('SELECT content FROM movie1 WHERE movie = :sql');   ADOQuery4.Parameters.ParamByName('sql').Value :=Combobox1.Items[ComboBox1.ItemIndex];   ADOQuery4.Open;   i:=ListBox1.ItemIndex;   ADOQuery4.Insert;   ADOQuery4.FieldByName('word').AsString := ListBox1.Items.Strings[i];   ListBox2.Items.Add(ListBox1.Items.Strings[i]);   if i<0 then showMessage('請點選一筆資料'); ADOQuery4.Post; end; ===================================================================

修改紅色部份試試:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  ADOQuery4.Close;
  ADOQuery4.SQL.Clear;
  ADOQuery4.SQL.Add('SELECT content FROM movie1 WHERE movie = :sql');
  ADOQuery4.Parameters.ParamByName('sql').Value := Combobox1.Items[ComboBox1.ItemIndex];
  ADOQuery4.Open;
  i := ListBox1.ItemIndex;
  if i < 0 then
  begin
    showMessage('請點選一筆資料');
    Exit;
  end;
  ADOQuery4.Insert;
  ADOQuery4.FieldByName('word').AsString := ListBox1.Items.Strings[i];
  ListBox2.Items.Add(ListBox1.Items.Strings[i]);
  ADOQuery4.Post;
end;

-- hagar.