البحث داخل Checklistbox كيف ؟

Var i : Integer;
	Found: Boolean;
begin
   i:=CheckListBox1.Items.Count-1;
   Found := False;
   Repeat
   if CheckListBox1.Items='Ahmed' then Begin
	  Found:=True;
	  CheckListBox1.Items.Delete(i);
   End;
   i:=i-1;
   Until (Found) or (i<0);

end;

انتبه الفرق بين الأسماء UpCase وبالتوفيق

السلام عليكم

علي السريع

unit Unit1;
interface
uses
  Windows, CheckLst, StdCtrls, Classes,Forms, Controls;
type
  TForm1 = class(TForm)
	CheckListBox1: TCheckListBox;
	Edit1: TEdit;
	Button1: TButton;
	procedure Button1Click(Sender: TObject);
  private{ Déclarations privées }
		 find : boolean;
		 function GetIndex( ):Integer;
  public{ Déclarations publiques }
  end;
var
  Form1: TForm1;
implementation{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
	index : integer;
begin
	index := GetIndex();
	if find  then CheckListBox1.Items.Delete(index);
end;

function TForm1.GetIndex():Integer;
var
	 i : Integer;
begin
find := false;
	for i := 0 to CheckListBox1.Items.Count - 1 do
	begin
		if CheckListBox1.Items= Edit1.Text then
		begin
			find := true;
			Result := i;
			Exit;
		end
		else
			find := false;
	end;
end;
end.

جزاكم الله كل خير تم مع الموضوع بنجاح

سؤال بسيط حول الإضافة لو تكرمتم

Var i : Integer;
	Found: Boolean;
begin
   i:=CheckListBox1.Items.Count-1;
   Found := False;
   Repeat
   if CheckListBox1.Items='Ahmed' then Begin
	  Found:=True;
	  CheckListBox1.Items.Add(i);
   End;
   i:=i-1;
   Until (Found) or (i<0);

end;

جربتة للإضافة لكن لم يفلح ؟ ياريت لو تكرمتم

الاضافة تكون من الشكل

CheckListBox1.Items.Add(Edit1.Text);

او مباشرة

CheckListBox1.Items.Add('Ahmed');

تمام كل شئ على ما يرام

جزيتم خيراً وألف شكر