поиск слов в текстовом файле с помощью проги в, Delphi ! помогите сделать please! Опции

[~Maks~]

Здравствуйте!
мне нужет текст программы в Delphi !

программа

В текстовый файл записываем слова(слова в столбик пишем), в делфи пишим программую которая по запросу ищет слово или слово сочитание в текстовом файле! после нахождения выводит результат.
интерфейс
1.поле
2.кнопка 'поиск'
3. поле где выводится результат

---
если ничего не нашла программа пишим в поле что ничего не найдено


please кто шарит напишите программу пожалуйста!

[GoodWind]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
const LIST_FILENAME='c:\file.txt';
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  sl:TStringList;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
sl:=TstringList.Create;
sl.LoadFromFile(LIST_FILENAME);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
label1.Caption:='Ничего не найдено';
for i:=0 to sl.Count-1 do
 begin
  if sl.Strings[i]=Edit1.Text
    then label1.Caption:=sl.Strings[i];
 end;
end;

end.

вроде работает