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
    StrStream.Seek(0,   soFromBeginning);
    ObjectTextToBinary(StrStream, BinStream);
    BinStream.Seek(0, soFromBeginning);
    Result := BinStream.ReadComponent(nil);
     finally
     BinStream.Free;
     end;
 finally
 StrStream.Free;
 end;
procedure TForm4.Button2Click(Sender: TObject);
begin
edit3.Text :=ComponentToString(image1);
myinifile.WriteString('测试','图片',edit3.Text );
end;
procedure TForm4.FormCreate(Sender: TObject);
var
pcom:TComponent;
Filename:string;
begin
Filename:=ExtractFilePath(Paramstr(0))+'图片配置.ini';
myinifile:=Tinifile.Create(filename);
pcom:=StringToComponent(edit3.Text);
end;