[Frozzy6]

На форме 2 кнопки и Edit

Код:

procedure TForm1.Button1Click(Sender: TObject);  
var stream: TFileStream;  
    w:string;  
begin  
w:=Edit1.Text;  
stream := TFileStream.Create('qwe.my', fmCreate);  
stream.Write(w,SizeOf(w));  
Stream.Free;  
Edit1.Text:='';  
end;  
 
  
 
procedure TForm1.Button2Click(Sender: TObject);  
var stream: TFileStream;  
    w:string;  
begin  
stream := TFileStream.Create('qwe.my', fmOpenRead);  
stream.Read(w,SizeOf(w));  
Stream.Free;  
Edit1.Text:=w;  
end;  

Админ: Пользуемся тегами для оформления кода!

Почему не работает?
После нажатия Button1, а потом Button2 он в Edit пихает 'qwe.my'...
А если просто после запуска нажать Button2, то выходит ошибка, хотя qwe.my существует.
Помогите разобраться пожалуйста.