readcomponent içinde isim değiştirme

[info@guzelceker.com]

burada timageenview nesnelerinin adını değiştirmem gerekiyor.. çok ilginç aynı flowpanel içine yüklediğim zaman aynı isimleri tutuyor ...

 DataModule2.ADS_SAYFA.First;     ///
  for I := 0 to AlbumSayfaSayisi-1 do
  begin
     Sayfa_FotoSayisi := DataModule2.ADS_SAYFA.FieldByName('FOTOSAYISI').AsInteger;
     pagecnt          := TPageControlex(tpanel(Form1.flowpanel1.Controls[i]).Controls[0]);

     With TTabSheet.Create(pagecnt) do
     begin
     Name        := Format('Sayfa_%.2d', [i]) ;
     Caption     := TabsheetNo(i) ;//TabsheetNo(i);
     PageControl := pagecnt;
     end;

   iTemp             := TStringList.Create;
   iTemp2            := TStringList.Create;
   iTemp.Duplicates  := TDuplicates.dupAccept;
   iTemp2.Duplicates := TDuplicates.dupAccept;
   MemStr            := TMemoryStream.Create;

   try
   RegisterClass( TLabel );
   RegisterClass( TPanel );
   RegisterClass( TEdit );
   RegisterClass( TCheckBox );
   RegisterClass( TRadioButton );
   RegisterClass( tOMultiPanel );
   RegisterClass( timageenview );
   RegisterClass( tieview );
   RegisterClass( tImageEnVect );
   RegisterClass( timage );
   RegisterClass( tpanel );
   RegisterClass( tbutton );
   RegisterClass( tIzgaraPanel );
   RegisterClass( TComponent );

   PanelStr := TMemoryStream.Create;

   DataModule2.ADS_template.Active      :=false;
   DataModule2.ADS_template.CommandText :='select * from sablonlar WHERE sablon_fotosayisi =:par1';
   DataModule2.ADS_template.Parameters.ParamByName('par1').Value:= Sayfa_FotoSayisi;
   DataModule2.ADS_template.Active      :=true;
   DataModule2.ADS_template.Last;

   TemplateNo:=   DataModule2.ADS_template.FieldByName('sablon_id').AsString;
  //   showmessage(TemplateNo) ;

   LoadFromFileToMem('M:\FOTOMS PROJELER\PROJE AUTOTRID3\Win32\Release\Template\'+TemplateNo,PanelStr);

   PanelStr.Position := 0;
   iTemp2.LoadFromStream( PanelStr ); // our original source
   PanelStr.Size := 0;
   MemStr.Position := 0;
   MemStr.WriteComponent( pagecnt.Pages[0]);
   StreamConvert(MemStr);
   // PanelStr now has our destination poanel.
   PanelStr.Position := 0;
   iTemp.LoadFromStream( PanelStr );
       for ii := 0 to iTemp2.Count - 1 do
       begin
         iTemp.Insert( ITemp.Count - 1, iTemp2[ ii ]);
       end;
   PanelStr.Size := 0;
   iTemp.SaveToStream( PanelStr );
   PanelStr.Position := 0;
   Form1.memo1.Lines.LoadFromStream(PanelStr);
   MemStr.Size := 0;
   PanelStr.Position := 0;
   ObjectTextToBinary( PanelStr, MemStr);
   MemStr.Position := 0;

   MemStr.ReadComponent(  pagecnt.Pages[0]);
   pagecnt.Pages[0].Controls[0].Align:=alclient;
   finally
   iTemp.Free;
   iTemp2.Free;
   MemStr.Free;
   PanelStr.Free;


DataModule2.ADS_SAYFA.next;
end;