Comparar Texto Em Variavel String

[Pablo Ricardo]

Gostaria de comparar os dados de uma string utilizando a mesma forma do Like do sql. Ex.:
 

while not Eof(txt) do
  begin
    ReadLn(txt, line);
    if True then
      if Trim(line) = LIKE '|0150|' then 
  end;

Importação do SPED Fiscal, só quero alguns blocos. Alguma idéia, recomendação?

[Pablo Ricardo]

 ReadLn(txt, line);
    if True then
      if (pos('|C460|', line)) <> 0 then      

Consegui separar assim... más o pos não me parece recomendado pra

Editado 30 Outubro, 2014 por Pablo Ricardo

[Pablo Ricardo]

procedure TfrmImportacaoSPED.LoadArquivo;
var
  txt: TextFile;
  line: String;
  posicao: Integer;
  flag: Boolean;
begin
  flag := False;
  AssignFile(txt, edtPath.Text);
  Reset(txt);
  if fArq = nil then
    fArq := TStringList.Create
  else
    fArq.Clear;
  fArq.BeginUpdate;
  while not Eof(txt) do
  begin
    ReadLn(txt, line);
    if True then
      if (pos('|C460|', line)) <> 0 then
      begin
        fArq.Add(line);
        flag := True;
      end
      else
      begin
        if flag = True then
          fArq.Add(line);
      end;
  end;
  CloseFile(txt);
  fArq.EndUpdate;
  mmo1.Text := fArq.Text;
  FreeAndNil(fArq);
end;

Funcionou para o que estou pensando em fazer. Muito obrigado pessoal.