Простая работа с потоками TFileStream

[exzibit]

необходимо создать такую программку, в общем запрет на 2 сайта,
при редактировании hosts и добавлении нового текста, он пишется в 1 строку.. необходимо каждый раз в новую.. как по шаблону заполнения
ну я думаю вы поняли о чём я

procedure TForm1.Button6Click(Sender: TObject);

var Stream: TFileStream;
s,d:string;
i,x,z:integer;
begin
  Stream := TFileStream.Create('c:\windows\system32\drivers\etc\hosts' , fmOpenReadWrite);
  try
  	Stream.Seek(0, soFromEnd);
    s:='127.0.0.1 www.vkontakte.ru';
 i:=length(s);	
Stream.WriteBuffer('127.0.0.1 www.vkontakte.ru', i);

    // ЗДЕСЬ НЕОБХОДИМО ПЕРЕЙТИ НА НОВУЮ СТРОКУ....

   	Stream.Seek(0, soFromEnd);
  s:='127.0.0.1 www.odnoklassniki.ru'; 
i:=length(s);		
Stream.WriteBuffer('127.0.0.1 www.odnoklassniki.ru',i);

  finally
  	Stream.Free;
  end;

end;

[DarkEvil]

символ переноса каретки #10#13

   s:=#10#13;
 i:=length(s);	
Stream.WriteBuffer(s, i);

Собственно, а почему именно через TFileStream ?

сюда б с головой хватило TStringList

[exzibit]

Интересно выходит вместе с этим добавляется чушь в файл ) от #10#13 прибавлялось 4 символа не понятных, 1 на предыдущей верхней строке, 3- на новой( текущей)
сделал так, не парясь в этом т.к очень слаб..

begin
  Stream := TFileStream.Create('c:\windows\system32\drivers\etc\hosts' , fmOpenReadWrite);
  try
     	Stream.Seek(0, soFromEnd);
      s:='#13';
 i:=length(s);
Stream.WriteBuffer(s, 2);
   	Stream.Seek(0, soFromEnd);
    s:='127.0.0.1 www.vkontakte.ru '; i:=length(s);	Stream.WriteBuffer('127.0.0.1 www.vkontakte.ru ', i);
        	Stream.Seek(0, soFromEnd);
    s:='#13';
 i:=length(s);
Stream.WriteBuffer(s, 2);

   	Stream.Seek(0, soFromEnd);
  s:='127.0.0.1 www.odnoklassniki.ru '; i:=length(s);		Stream.WriteBuffer('127.0.0.1 www.odnoklassniki.ru ',i);

результат такой:

127.0.0.1 localhost
„
127.0.0.1 www.vkontakte.ru „
127.0.0.1 www.odnoklassniki.ru „
127.0.0.1 www.vkontakte.ru „

НУ работает, и ладно)
Спасибо за помощь и внимание