Дан список из нескольких фамилий сотрудников, определить номер сотрудника по заданной фамилии.

  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    lst1: TListBox;
    lbl1: TLabel;
    lbl2: TLabel;
    edt1: TEdit;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
 
var
      spicok: array[1..20] of string ;
      obr:string ;
      found : Boolean :
      i : Integer ;
begin
     obr :=edt1.Text ;
     found :=False ;
     for i:=1 to lst1.Items.Count-1 do
     spicok[i]:=lst1.items.Count(i-1)  ;
     i:=1 ;
     repeat
       if spicok=obr
         then found:=True
         else i:=i+1 ;
         until (I>20) or (found-true) ;
         if found
           then ShowMessage('совпадение с'+ IntToStr(i)+#13+'поиск успешен');
 
           else ShowMessage('совпадений нету');
 
end;
 
end.

procedure TForm1.btn1Click(Sender: TObject);
 
var
      spicok: array[1..20] of string ;
      obr: string;
      found : Boolean;
      i : Integer;
begin
     obr := edt1.Text;
     found := False;
     for i:=1 to lst1.Items.Count do
       spicok[i] := lst1.items[i-1];
     i := 1;
     repeat
       if spicok[i]=obr
         then found:=True
         else i := i + 1;
     until (I>20) or (found=true);
     if found then ShowMessage('совпадение с '+ IntToStr(i)+#13+'поиск успешен')
              else ShowMessage('совпадений нет');
 
end;