Код:
если просто строку то как то так
procedure TForm1.Button1Click(Sender: TObject);
var
gh : TStringList;
fIndex: integer;
begin
gh := TStringList.Create;
gh.LoadFromFile('demo.txt'); // путь к тексту
fIndex := gh.IndexOf(Edit1.Text); // узнаем номер строки где есть нужный текст
Label1.Caption := gh.Strings[fIndex]; // выводим результат строки где имееться искомый текст.
end;
Админ: Пользуемся тегами для оформления кода! Иначе последуют санкции!