Código Delphi [-] if pos('CST',Memo1.Lines.Strings[i]) > 0 then Edit1.Text:=trim(Memo1.Lines.Strings[i]);
if pos('CST',Memo1.Lines.Strings[i]) > 0 then Edit1.Text:=trim(Memo1.Lines.Strings[i]);