TStringList...usuwanie itemu

Cześć @LL

Oto fragment procedury:

[code]procedure TForm1.xxx(Sender: TObject);
var
Konta: TStrings;
Int: Integer;
begin
Int := 1;
Konta := TStringList.Create;

Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('blabla\bleble', True);
try
Reg.GetKeyNames(Konta);
(...)[/code]

Ten kod ładuje do tablicy "Konta" nagłówki kluczy w danym miejscu w rejestrze. Daną mam jeszcze zmienną globalną X: string, w której jest zapisana nazwa jednego z tych kluczy...
Jak po załadowaniu nagłówków do tablicy, usunąć z niej item o treści równej zawartości zmiennej X (pozostałe nadal znajdują się w tablicy)?

[code]
for i := 0 to Konta.Count - 1 do begin
if Konta.Strings[i] = X then begin
Konta.Delete[i];
break;
end;
end;
[/code]
Czy coś w tym stylu...

[code]for i := 0 to Konta.Count - 1 do
begin
if Konta.Strings[i] = DefaultEmail then
begin
Konta.Delete<font color="red">[i]</span>;
break;
end;
end;[/code]

"Not enough actual parameters"

[code]
Konta.Delete<font color="red">(i)</span>;
[/code]

"Not enough actual parameters"

Sorry, pomyliłem się, daj nawias okrągły zamiast kwadratowego.

Oj, a helpu poczytać nie łaska?? Można krócej!!!!

Konta.Delete(Konta.IndexOf(DefaultEmail));

PS. Powinno być: var Konta:TStringList;