Поиск и удаление из Tstrings

[Shouldercannon]

Сам отвечаю

//Удаляем данные
procedure TForm1.BDeleteClick(Sender: TObject);
begin
try
with MBanIPs do
Delete(indexOf(Edit1.Text));
Memo1.Text := MBanIPs.Text;
except
ShowMessage('Не найдено');
end;
end;

//Находим данные
procedure TForm1.BFindClick(Sender: TObject);
var
Index: Integer;
begin
if MBanIPs.Find(Edit1.Text, Index) then
ShowMessage('Найдено')
else
ShowMessage('Не найдено');
end;

 

[SNike]

Сам отвечаю

Молодец