"클릭"이라는 버튼에 이벤트를 수정하세요

procedure TForm1.Button3Click(Sender: TObject);
var
Counter : Integer;
j : Integer;
k : Integer;
Cs, test : string;
StringList : TStringList;
begin
  k := 0;
  Counter := Memo1.Lines.Count ;

  StringList := TStringList.Create;  // 여기로 저장합니다.
  for j := 0 to Counter do
  begin
    if Edit1.Text = rec[j].Bun then
    begin
      k := k+1;
      StringList.Add(Memo1.Lines[j]);  // <-- 여기서 추가합니다.
    end;
  end;
  Cs := InttoStr(k);
  ShowMessage(Cs+'개가 검색되었습니다.');
  Memo1.Lines := StringList;    // Memo1에 뿌립니다.
  StringList.Free;
end;

rec 를 직접 쓰시려면,
procedure TForm1.Button3Click(Sender: TObject);
var
Counter : Integer;
j : Integer;
k : Integer;
Cs, test : string;
Stream : TStringStream;
begin
  k := 0;
  Counter := Memo1.Lines.Count ;

  Stream := TStringStream.Create('');   // <- 여기다 저장합니다.
  for j := 0 to Counter do
  begin
    if Edit1.Text = rec[j].Bun then
    begin
      k := k+1;
      Stream.WriteBuffer(rec[j], sizeOf(rec[j]));  //<- 여기서 추가합니다.
    end;
  end;
  Cs := InttoStr(k);
  ShowMessage(Cs+'개가 검색되었습니다.');
  Memo1.Lines.Text := Stream.DataString;  // Memo1에 뿌립니다.
  stream.Free;  // 완료
end;


그럼... 즐거운 하루되세요 ^^;

꼬망 님이 쓰신 글 :
: ㅜ.ㅜ
: 제가 델파이를 접한지 얼마 안되서.. 고수님들에게 약간에 도움을 청해 보아요...
: 아래에 첨부파일을 같이 올릴께요...
: C:\test2.txt 란 경로에 파일을 불러다가 메모 컨퍼넌트에 띄우는건데요..
: 거기까진 됐는데...
: 검색기능을 하나 만들어서 검색조건을 만족시키면 다시 메모 컨퍼넌트에 그 에 만족하는
: 라인들만 다시 뿌려주고 싶은데...
: 잘 안되네용... 고수님들 제발 도와주세요.