var
 SL: TStringList;
begin
 Sl:=TStringList.Create;
 if FileExists('myfile.txt') then SL.LoadFromFile('myfile.txt');
 SL.Add('Text');
 SL.SaveToFile('myfile.txt');
 SL.Free;
end;

 
SL.LoadFromFile('myfile.txt');

 
if SL.Strings[nomerstroki]='Text' then...;