Jak zroic aby po wybraniu liczby ktora wylosowalem do comboboxa losowac wedlug niej dlugosc imiena

Jak zrobic aby po wybraniu liczby ktora wylosowalem do comboboxa losowac wedlug niej dlugosc imiena z mozliwoscia dodawania i usuwania z tablicy w Delphi

Wstaw imiona do tablicy i porównuj długości?

var Imiona: Array of String;

procedure WczytajImiona;
begin
(* ... *)
end;

function Losuj(Len: Integer): String;
var I: Integer;
begin
 for I := Low(Imiona) to High(Imiona) do
  if (Length(Imiona[I])) = Len) then
  begin
   Losuj := Imiona[I];
   Exit;
  end;
end;