파일을 찾아서 메모컴포넌트에 읽은 파일을 넣는건데여 FileExists 문까지 들어가는데 다음에 begin 문에서는 스킵해서 end 로 그냥 빠져 버리거든여 도대체 왜 그러는지 모르겠어여 도와주세여
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  T : Textfile;
  S_buffer : String;
  Search : String;
  Filename : string;
begin
   Search := FormatDateTime('YYYYMMDD',DateTime.Date);
   Filename := 'WriteData_' + Search + '.log';
   if FileExists(Filename)=TRUE then
   begin
      Assignfile(T,Filename);
      Reset(T);
      while not Eof(T) do
       begin
         Readln(T, S_buffer);
         memo1.lines.add(S_buffer);
       end;
          closefile(T);
       end;
end;