InfoColorSpace example for Delphi

procedure TForm1.btnInfoColorSpaceClick(Sender: TObject);
begin
   if(LEADImage1.GetFileInfo('image1.cmp', 0) = SUCCESS)then
   begin
      ShowMessage('Info Color Space = ' + IntToStr(LEADImage1.InfoColorSpace));
   end;
end;