String(''top''));  
//如果不是最大化，则取位置和大小数据赋给From
   Form1.left:=StrToInt(ww.ReadString(''left''));
   Form1.height:=StrToInt(ww.ReadString(''height''));
   Form1.width:=StrToInt(ww.ReadString(''width''));
   end;
 end;
end;

//关闭窗口时要做的一些工作      
procedure TForm1.FormDestroy(Sender: TObject);
begin
 ww.OpenKey(''位置'',FALSE);                
//打开“位置”键
 if Form1.WindowState=(wsMaximized) then  
//如果当前程序是最大化，则把这一信息写入注册表，
   ww.WriteString(''max'',''y'')              
//便于下一次时使用。
 else
 begin
   ww.WriteString(''max'',''n'');                
//如果不是最大化，则把窗口的位置和大小数据写入注册表中。
   ww.WriteString(''top'',IntToStr(Form1.top));
   ww.WriteString(''left'',IntToStr(Form1.left));
   ww.WriteString(''height'',IntToStr(Form1.Height));
   ww.writeString(''width'',IntToStr(Form1.Width));
 end;
end;