VCL CheckListBox pass selected Item and delete it - delphi

Question

Hi guys I am a Delphi beginner and I have a simple question because finding something online for Delphi seems to be hard.
I have a CheckListBox and when I click on the checkbox of an Item I want to pass it to another form lets say form2 gets created. There I have 2 buttons:
Delete - it should delete the selected Item so the item where the form spawned on. How do I delete the selected Item?
Edit Entry - I need to pass the checked Item values to another form where I can edit the values and save it as a new one. How do I pass the values from the selected Item to another form?
Ty Faded.

Answer 1

Here's a better approach:
Create a new VCL application.
Add a TCheckListBox control with a few items on it:
Drop a TActionList component on the form.
Create two actions: aDelete and aRename. Sets their captions to Delete... and Rename... and their hints to Removes the selected item from the list. and Renames the selected item in the list..
Add the following code to their OnExecute handlers:
procedure TForm1.aDeleteExecute(Sender: TObject);
begin
if CheckListBox1.ItemIndex = -1 then
Exit;
if MessageBox(Handle, 'Do you want to delete the selected item?',
'Delete', MB_ICONQUESTION or MB_YESNO) <> IDYES then
Exit;
CheckListBox1.DeleteSelected;
end;
procedure TForm1.aRenameExecute(Sender: TObject);
var
S: string;
begin
if CheckListBox1.ItemIndex = -1 then
Exit;
S := CheckListBox1.Items[CheckListBox1.ItemIndex];
if InputQuery('Rename', 'Please enter the new name:', S) then
CheckListBox1.Items[CheckListBox1.ItemIndex] := S;
end;
Add the following code to their OnUpdate handlers:
procedure TForm1.aDeleteUpdate(Sender: TObject);
begin
aDelete.Enabled := CheckListBox1.ItemIndex <> -1;
end;
procedure TForm1.aRenameUpdate(Sender: TObject);
begin
aRename.Enabled := CheckListBox1.ItemIndex <> -1;
end;
Drop a TPopupMenu on the form. Name it pmList. Add two menu items. Set their Action properties to aDelete and aRename, respectively. This will automatically give the items the caption, hint, and hotkeys of the actions:
Now assign pmList to the check list box control's PopupMenu property.
Test the application. Notice that the context menu items are enabled only if an item is selected; otherwise, they are both disabled. (This is thanks to the OnUpdate handlers. It would be very sloppy of us to skip these. But notice that we still verify that an item is selected in the OnExceute handlers. In quality software, you always use both belt and braces.)
Of course, we must map the Del and F2 keys to the delete and rename actions. We could use the ShortCut properties of the actions, but that would make these keys delete and rename in this list even if another GUI control has focus, and that's very bad. Instead, we add an OnKeyDown handler to the check list box control itself:
procedure TForm1.CheckListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_DELETE:
aDelete.Execute;
VK_F2:
aRename.Execute;
end;
end;