TStream и TStringList

[riv]

помогите пожалуйста! Завтра нужно сдать задачку обязательно.
Суть такова - нужно содержимое stringlist сохранить в stream
если я делаю так:

Код: Выделить всё

var st, st1: TStringList;
  Stream:  TStream;
  i: integer;
begin
st:= TStringList.Create;
st:=TStringList.Create;
Stream:= TStream.Create;
st.Add('radionov');
st.Add('egor');
st.SaveToStream(Stream);
st1.LoadFromStream(Stream);

То вылазит ошибка. Если Tstream заменить на TMemoryStream то ошибки нет, но в st1 пусто.((
Подскажите пожалуйста что я не так делаю!?

[Brainenjii]

Код: Выделить всё

var st, st1: TStringList;
  Stream:  TMemoryStream;
  i: integer;
begin
st:= TStringList.Create;
st1:=TStringList.Create;
Stream:= TMemoryStream.Create;
st.Add('radionov');
st.Add('egor');
st.SaveToStream(Stream); // сейчас позиция в Stream в конце
Stream.Seek(0, soFromBeginning); // возвращаемся
st1.LoadFromStream(Stream);
WriteLn(st1.Text);
end.