[Ferra]

Да... как обычно проблемиа оказалась в лени....

для компонента VCLZip 3.03

Код:

var
 TMS : TMemoryStream;
 i   : Integer;
begin
TMS:=TMemoryStream.Create;
VCLUnZip.ZipName:='Themes\'+FName;
VCLUnZip.ReadZip;
i:=0;
 with VCLUnZip do
  while i < Count do
   if UpperCase(ExtractFileExt(Filename[i])) = '.XML' then
       begin
       UnZiptoStreamByIndex( TMS, i );
       break;
       end
        else inc(i);
end;

Находит первый в архиве файл "xml" и раазрхивирует его в TMS....
проще простого