to tentando fazer dessa forma (já sabendo que esta errado) porq na verdade so preciso de um campo de busca onde digitar a palavra, n precisa de visual bonito e de nada disso, o mais simples possivel: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin var txt: TStringList; i: integer; begin txt := TStringList.Create; txt.LoadFromFile('c:\temp.txt'); //abre o arquivo for i:=0 to txt.Count -1 do if Pos(edit1.Text,txt)>0 then //edit1.text é a palavra que você procura begin showmessage('existe palavra'); exit; end; txt.Add(edit1.Text); //adiciona palavra txt.SaveToFile('c:\temp.txt'); //salva arquivo showmessage('palavra adicionada'); txt.Free; end; end; end.