TXT fil

Nogle der ved en lille kode for:

Vis jeg nu har et txt dokument og loader det i en memo, så vis der står "Close" skal programmer lukke lige meget hvorfor en linie "Close" stå i ?

Nogle der kan hjælpe med det ?

Kode 

if pos('Close', Memo.Lines) > 0 then Close;

Kode 

function GetLineOfFirstOccurrence(Inp, ord: string): integer;
var p: integer;
begin
   result := -1;
   p := pos(ord, inp);
   if p = 0 then
      exit;
   result := 0;
   while (pos(#13#10, Inp) < p) and (pos(#13#10, inp) > 0) do
   begin
      inc(result);
      delete(Inp, 1, pos(#13#10, inp)+1);
   end;
end;