filewrite之间如何写

filewrite之间怎么写？
i:=Fileopen( 'LED.CFG ',fmopenwrite);    
                              if     i         <     0     then    
                              i:=filecreate( 'led.cfg ');    
                              filewrite(i,*,*)    
                              fileclose(i);    
                          ＊的部分我不会写，我想要把修改后的form2窗体的东西保存下来．．    
怎么写．．不吝赐教！

[解决办法]
up
[解决办法]
不知道WriteComponent跟ReadComponent是否可以实现你想要的,自己试下.

Delphi里的Example:

This example shows how to use the built-in component streaming support to convert any component into a string and convert that string back into a component.

function ComponentToString(Component: TComponent): string;

var
BinStream:TMemoryStream;
StrStream: TStringStream;
s: string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result:= StrStream.DataString;
finally
StrStream.Free;

end;
finally
BinStream.Free
end;
end;

function StringToComponent(Value: string): TComponent;
var
StrStream:TStringStream;
BinStream: TMemoryStream;
begin
StrStream := TStringStream.Create(Value);
try
BinStream := TMemoryStream.Create;
try
ObjectTextToBinary(StrStream, BinStream);
BinStream.Seek(0, soFromBeginning);
Result := BinStream.ReadComponent(nil);

finally
BinStream.Free;
end;
finally
StrStream.Free;
end;
end;