Listboks klik der flytter en database

Det 'noget med' at du skal lave et itemindex og noget commandtxt der passer til

procedure TForm1.ListBox3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  valgt := ListBox3.ItemIndex;
  Listbox1.ItemIndex := valgt;
  Listbox2.ItemIndex := valgt;
end;

commandtexten ku se såån ud

if ListBox3.ItemIndex >= 0 then begin
    ADOCommand1.CommandText := 'DELETE FROM tabel WHERE phone = :phone';
    ADOCommand1.Parameters.ParamByName('phone').Value := ListBox3.Items.Strings[ListBox3.ItemIndex];
    ADOCommand1.Execute;
  end
  else
    Showmessage('Du har ikke valgt et item!');

Selvom den ikke lige flytter nogen database.

Den må jeg lige se lidt på i morgen.
Tak janbb
VH
Koden12

Ja så så lykkedes det altså.
http://www.eksperten.dk/spm/409310
koden12: Spar du dine points (hvis ikke borrisholdt finder på at 'kigge forbi')
og tak for pointene i adoqueryspm.et (det løste vist ellers ikke hele problematikken i dit spm.)

svar