[ecfisa]

Hola Carlos.

Creo que te entiendo, a ver si te refieres a algo así:

Código Delphi [-]
...
var
  Vec : array [1..100] of string;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  Edit1.Clear;
  for i:= 1 to 12 do
  begin
    Vec[i]:= LongMonthNames[i];
    ListBox1.Items.Add(Vec[i]); // para que los valores iniciales se vean en algún lado...
  end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
var
  i: Integer;
begin
  if Edit1.Text > '' then
  begin
    for i:= 100 downto 1 do
      if Edit1.Text = Vec[i] then
        ShowMessage(Edit1.Text + ' es igual a ' + Vec[i]);
  end;
end;
...

Si lo quisieras como búsqueda incremental, basta con cambiar la condición del if del procedimiento Edit1Change:

Código Delphi [-]
   ...
    if Edit1.Text = Copy(Vec[i], 1, Length(Edit1.Text)) then
        Caption:= Vec[i];
   ...

Saludos.