안녕하세여.. 다른게 아니고 txt 파일을 읽어와서 문자열을 검색해서 검색하려는 문자를 찾으면 그 라인 전체를 불러와서 메모장에 뿌려주려고 합니다.
function Tform1.GetFValue (S_buffer : String; S_edit : string) : String;
var
  sTemp,schar, sResult : String;
begin
  sTemp := S_buffer;                   // txt 문자의 한 라인을 불러왔습니다. //
  schar := S_edit;                        //   검색하려는 문자입니다.//

while length(sTemp)>0 do       //  라인의 끝까지 검색하려고 합니다.//
begin
  sResult := Copy(sTemp, 1, Pos('|', sTemp) -1);   구분자가 '|' 입니다.
Delete(sTemp, 1, Pos('|', sTemp));  

if sResult= schar then           문자열을 검색하면 라인을 어떻게 가져와야
   begin
                                          하는지  모르겠습니다.
   end;
  end;
end;