Ежесекундное получение данных из файла

procedure TForm1.Timer1Timer(Sender: TObject);
begin
memo1.Lines.LoadFromFile('C:\12345.txt');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
CopyFile('C:\12345.txt','C:\123456.txt',false);
memo1.Lines.LoadFromFile('C:\123456.txt');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
memo1.Lines.add(IntToStr(i));
memo1.Lines.SaveToFile('C:\12345.txt');
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  AssignFile(f12345, 'C:\12345.txt');
  FileMode := fmOpenRead;
  Reset(f12345);
  ReadLn(f12345, letter);
  memo2.Lines.add(letter);
end;

fs := TFileStream.Create(fName, fmOpenRead or fmShareDenyNone);

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Buffer: string;
  Stream: TFileStream;
begin
  Stream := TFileStream.Create('C:\12345.txt', fmShareDenyNone);
  try
    SetLength(buffer, Stream.Size);
    Stream.Read(Buffer[1], Stream.Size);
    Memo1.Lines.Text := Buffer;
  finally
    Stream.Free;
  end;
   end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
  BufferTRO: string;
  StreamTRO: TFileStream;
begin
  StreamTRO:= TFileStream.Create('123.txt', fmShareDenyNone);
  try
    BufferTRO:= MemoTRO.Lines.Text;
    StreamTRO.write(BufferTRO[1], Length(BufferTRO));
  finally
    StreamTRO.Free;
  end;
end;
 
end.