为什么会报错：OBJECT expected on line 1. 代码如下，能给出相应参考文件最好了！在线等，急！

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;

哪句错了，自己跟踪看看

需要相应的对象？

楼上能具体点吗

应该是function StringToComponent(Value: string): TComponent函数错了
但不知道错在哪